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 %>