<%@ LANGUAGE="VBSCRIPT" %> <% ID = Request.Querystring("ID") %> <% ConnGuestBook_ConnectionString = "DBQ=" & Server.Mappath("..\..\_database2\guestbook2.mdb") & ";DefaultDir=" & Server.Mappath("..\..\_database2") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" ConnGuestBook_ConnectionTimeout = 15 ConnGuestBook_CommandTimeout = 30 ConnGuestBook_RuntimeUserName = "admin" ConnGuestBook_RuntimePassword = "" Set ConnGuestBook = Server.CreateObject("ADODB.Connection") ConnGuestBook.ConnectionTimeout = ConnGuestBook_ConnectionTimeout ConnGuestBook.CommandTimeout = ConnGuestBook_CommandTimeout ConnGuestBook.Open ConnGuestBook_ConnectionString, ConnGuestBook_RuntimeUserName, ConnGuestBook_RuntimePassword Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdEditInfo = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT BOOK1.* FROM BOOK1 WHERE (ID = " & ID & ")" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnGuestBook CmdEditInfo.Open cmdTemp, , 0, 1 MESSAGE = CmdEditInfo("MESSAGE") MESSAGE = Replace(MESSAGE,"
",str) MESSAGE = Replace(MESSAGE,"
",vbCr) %>

*NAME*	">
*EMAIL*	">
*URL*	">
*MESSAGE*	<%= MESSAGE %>