<% PostID = request.form("PostID") 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 rsUpdate = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM BulletinBoard WHERE PostID = "&PostID&"" rsUpdate.open sql, conn, 3, 3 rsUpdate("BBName") = Request.Form("BBName") rsUpdate("BBEmail") = Request.Form("BBEmail") rsUpdate("Subject") = Request.Form("Subject") rsUpdate("Message") = Request.Form("Message") rsUpdate("BBHomepageName") = Request.Form("BBHomepageName") rsUpdate("BBHomepageURL") = Request.Form("BBHomepageURL") rsUpdate("ImageURL") = Request.Form("ImageURL") rsUpdate.Update PostID = rsUpdate("PostID") BBName = rsUpdate("BBName") BBEmail = rsUpdate("BBEmail") Subject = rsUpdate("Subject") Message = rsUpdate("Message") BBHomepageName = rsUpdate("BBHomepageName") BBHomepageURL = rsUpdate("BBHomepageURL") ImageURL = rsUpdate("ImageURL") %> Bulletin Board
Bulletin Board

<%=Subject%>

<%=Message%>
<%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 ]

<% rsUpdate.close set rsUpdate = nothing conn.close set conn = nothing%>