<% 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 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


Correct Message

Name:
E-Mail:
Subject:
Message:
Optional Link URL:
Link Title:
Image URL:

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%>