<%
''''''''''''''''''''
'UPDATE ACCESS FILE'
''''''''''''''''''''
dim Conn
dim strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open YOUR PROVIDER STRING OR DSN
strSQL = "INSERT INTO access (date, userid, remoteadd, sessionid, page, desc) VALUES ({" & Now & "},'" & Session("userid") & "', '" & Request.ServerVariables("REMOTE_ADDR") & "', '" & Request.ServerVariables("HTTP_COOKIE") & "', '" & Request.ServerVariables("PATH_INFO") & "', '" & strDescr & "')"
Conn.Execute strQuery
set Conn = Nothing
%>