Guide to using Forms
You are visitor number:
<%
'
' http://www.mokarrabin.mineed.com - for many other programs !
'
Set oRs = Server.CreateObject("ADODB.Recordset")
Set db = Server.CreateObject("ADODB.connection")
ConStr = "DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;DBQ=" & Server.MapPath("counter.mdb")
db.Open ConStr
oRs.Open "select * from hit", db,adOpenDynamic,adLockOptimistic
ors.Move 0
Response.Write( oRs.Fields("count").Value )
oRs.Fields("count").Value = oRs.Fields("count").Value + 1
oRs.Update
Set db = nothing
Set oRs = Nothing
%>