MS Access Logging

A simple way to log access to your pages to a MS Access database.

Download all the files

<% '============================================================== '1) place this file in the same folder of the files you wish to log. '2) add the line below to your asp file you wish to log access to. '3) <!-- #INCLUDE FILE="access-log.asp" --> '4) Change the logdbpath below to match your path. If you place ' the mdb file in the same folder, you may leave the path as is, but ' this is not a secure location. Dim logRS,logConn,logdbpath,query_string logdbpath = server.mappath("access-log.mdb") Set logConn = Server.CreateObject("ADODB.Connection") logConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & logdbpath 'Open Recordset Set logrs = Server.CreateObject("ADODB.RecordSet") logRS.Open "AccessLog1", logConn, 1, 3 'run update logRS.AddNew logRS("logAuth_User") = Request.ServerVariables("Auth_User") logRS("logPath_Info") = Request.ServerVariables("Path_Info") logRS("logQuery_String") = Request.ServerVariables("Query_String") logRS("logRemote_Addr")= Request.ServerVariables("Remote_Addr") 'update and close record logRS.Update logRS.Close Set logRS = Nothing logConn.Close Set logConn = Nothing '============================================================== 'NOTES: 'You can remove the line with Auth_User ' if you do not use windows authentication. %>