<%
if not Response.Cookies("mycookie").HasKeys then
dim conn
set conn = server.createobject("ADODB.connection")
conn.provider = "Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("../db/abt.mdb"))
dim rs,k
set rs = server.createobject("ADODB.Recordset")
rs.open "c",conn,,3,2
rs.movelast
k = rs("id") + 1
rs.movefirst
rs.addnew
rs("id") = k
rs("ip") = request.ServerVariables("REMOTE_ADDR")
rs("os") = request.ServerVariables("HTTP_USER_AGENT")
rs("da") = date
rs.update
rs.close
set rs = nothing
conn.close
set conn = nothing
Response.Cookies("mycookie")("date") = Date
Response.Cookies("mycookie").Expires = Date + 1
End If
%>