<%
Set ObjConn = Server.CreateObject ("ADODB.Connection")
Set rszing = Server.CreateObject ("ADODB.Recordset")
ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/zing.mdb")
SQL = "Select * from hitscounter where autoid=1"
rszing.Source = SQL
rszing.ActiveConnection = ObjConn
rszing.CursorType = 1 'adOpenStatic
rszing.CursorLocation = 1 'adUseClient
rszing.Open
currenthits = rszing("hitscounter")
newhits = currenthits + 1
rszing.Close
Set rszing = nothing
pSQL = "Update hitscounter set hitscounter = "& newhits &" where autoid = 1"
objconn.execute(pSQL)
ObjConn.Close
Set ObjConn = nothing
%>
Essence of a beautiful, healthy life