<%@ LANGUAGE="VBSCRIPT" %> <% ACTION = Request.Form("ACTION") %> <% Session("ConnGuestBook_ConnectionString") = "DBQ=" & Server.Mappath("..\_database\guestbook.mdb") & ";DefaultDir=" & Server.Mappath("..\_database") & ";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;" Session("ConnGuestBook_ConnectionTimeout") = 15 Session("ConnGuestBook_CommandTimeout") = 30 Session("ConnGuestBook_RuntimeUserName") = "admin" Session("ConnGuestBook_RuntimePassword") = "" %> PowerASP.com Guest Book Ver 1 <% If ACTION = "Save" Then %> <% End If %> <% If ACTION = "Save" Then %>

Thank You For Your Comments

<% End If %>

Guest Book Entry

NAME
EMAIL
HOMEPAGE URL
MESSAGE