Return to Bulletin Board Home Page

Add An Item to The Rose Scharlin Bulletin Board

<% strCNX = "Provider=SQLOLEDB; Data Source=ipsqtw0024atl2.registeredsite.com; Initial Catalog=rosescharlincom; " _ & "User Id=user1123349; Password=ik2465zgjy;" set cnxBB = Server.CreateObject("ADODB.Connection") cnxBB.ConnectionTimeout = 15 cnxBB.CommandTimeout = 30 cnxBB.open strCNX dim dtDateThreshold dtDateThreshold=date()-30 dim strBB_Location dim strBBText set objRec = Server.CreateObject("ADODB.Recordset") strSQL="SELECT tblBB.* " strSQL=strSQL & "FROM tblBB " strSQL=strSQL & "WHERE BB_Resolved_YN='N' " strSQL=strSQL & "ORDER BY BB_ID desc" objRec.open strSQL, strCNX, 0, 1 if not ObjRec.eof then %> <% objRec.movefirst do while not objRec.eof strBBText=objRec("BB_text") strBB_Text=Replace(strBB_Text,chr(13),"

") 'return, linefeed=10 strBBText=Replace(strBBText,"^", "'") strBBText=Replace(strBBText,chr(13),"

") 'return, linefeed=10 %>

<% objRec.movenext loop %>

Date	Name	Subject
<%=objRec("BB_Date")%>	<%=objRec("BB_Name")%>	<%=objRec("BB_Header")%>	">View

<% else %>

No current items...