<%@ Language=VBScript %>
<%
const adLockReadOnly = 1
const adLockPessimistic = 2
const adLockOptimistic = 3
const adLockBatchOptimistic = 4
const Conn = "gg_db"
if Request.QueryString("submit")="1" then
Set connection=Server.CreateObject("ADODB.COnnection")
Connection.Open "gg_db"
response.redirect("mainframe.html")
Set InSet=server.CreateObject("ADODB.Recordset")
sql="Select * from Site_Visitors"
BkSet.Open sql,Conn,adOpenDynamic,adLockPessimistic
end if
%>
Visitors Book