%
const adOpenForwardOnly=0
const adOpenStatic=3
const adLockReadOnly=1
const adLockOptimistic=3
const adCmdText=1
dbWhere = server.MapPath("sriburin.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbWhere
set rs = Server.CreateObject("ADODB.RecordSet")
set rs10 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 1 * FROM tbCounter"
rs.open strSQL,conn,adOpenForwardOnly,adLockReadOnly,adCmdText
if not(rs.eof) then
visitor_no=rs("fVisitor_no")
else
visitor_no=0
end if
rs.close
if session("visitor")="" then
visitor_no = visitor_no+1
strSQL = "UPDATE tbCounter SET fVisitor_no=" & visitor_no & ""
rs.open strSQL,conn,adOpenStatic,adLockOptimistic,adCmdText
session("visitor")=visitor_no
end if
dim visitor_show(8)
visitor_text = right("0000000" & (visitor_no),7)
for flag_visitor=1 to 7
visitor_show(flag_visitor)=mid(visitor_text,flag_visitor,1)
next
%>