<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=" & Server.MapPath("bulletinboard.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" Set rsNew = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM BulletinBoard " rsNew.open sql, conn, 3, 3 rsNew.AddNew rsNew("BBName") = Request.Form("BBName") rsNew("BBEmail") = Request.Form("BBEmail") rsNew("Subject") = Request.Form("Subject") rsNew("Message") = Request.Form("Message") rsNew("ResponseTo") = Request.Form("ResponseTo") rsNew("BBHomepageName") = Request.Form("BBHomepageName") If BBHomepageName = "" OR IsNull(BBHomepageName) then BBHomepageName = "0" end if rsNew("BBHomepageURL") = Request.Form("BBHomepageURL") If BBHomepageURL = "" OR IsNull(BBHomepageURL) then BBHomepageURL = "0" end if rsNew("ImageURL") = Request.Form("ImageURL") If ImageURL = "" OR IsNull(ImageURL) then ImageURL = "0" end if rsNew.Update rsNew.movelast PostID = rsNew("PostID") BBName = rsNew("BBName") BBEmail = rsNew("BBEmail") Subject = rsNew("Subject") Message = rsNew("Message") BBHomepageName = rsNew("BBHomepageName") BBHomepageURL = rsNew("BBHomepageURL") ImageURL = rsNew("ImageURL") %> Bulletin Board
Bulletin Board

<%=Subject%>

<%=Replace(Message, vbCrLf, "
")%>
<%If BBHomepageURL <> NULL then%><%If BBHomepageName <> NULL then%><%=BBHomepageName%>"><%end if%><%end if%>
<%If ImageURL <> NULL then%><%end if%>

    

  

If you would like to change your message, use the "Edit" button

Use of this bulletin board means you have read and agree to our rules.

[ Follow Ups ] [ Post Follow Up ] [ Bulletin Board ] [ FAQ ]
<% rsNew.close set rsNew = nothing conn.close set conn = nothing%>