<%
dim databaseConnection
dim rs
dim hits
ON ERROR RESUME NEXT
err.clear
Set databaseConnection=Server.CreateObject("ADODB.Connection")
databaseConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
databaseConnection.Open "d:\\64.226.30.224\\databases\\hits.mdb", "admin", ""
if err.number<>0 then
Response.end
end if
'Get new account number for this client
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM HITTABLE WHERE THEDATE=#" & date() & "#",databaseConnection,2,3,1
if err.number<>0 then
Response.end
end if
if rs.EOF<>true and rs.BOF<>true then
hits=rs.fields("Imaging")+1
rs.fields("Imaging")=hits
rs.Update
if err.number<>0 then
Response.end
end if
rs.Close
else
rs.AddNew
rs.Fields("TheDate")=date()
rs.Fields("Imaging")=1
rs.Update
rs.close
end if
databaseConnection.Close
%>
