|
I want to use the following script to logg access to my pages however when i put in Request.ServerVariables("HTTP_USER_AGENT") it stops working altogether does ayone have any idea why this is, your help would be greatly appreciated. I have copyed the error message and put it at the bottom of this post
Regards
Daz
<%@ Language=VBScript %> <% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsAddinfo 'Holds the recordset for the new record to be added Dim strSQL 'Holds the SQL query to query the database
'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("errorlogs.mdb")
'Create an ADO recordset object Set rsAddinfo = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblInfo.IP, tblInfo.Date, tblInfo.Software FROM tblInfo;" 'Set the cursor type we are using so we can navigate through the recordset rsAddInfo.CursorType = 2
'Set the lock type so that the record is locked by ADO when it is updated rsAddInfo.LockType = 3 'Open the recordset with the SQL query rsAddInfo.Open strSQL, adoCon
'Tell the recordset we are adding a new record to it rsAddInfo.AddNew
'Add a new record to the recordset rsAddInfo.Fields("IP") = Request.ServerVariables("REMOTE_ADDR") rsAddInfo.Fields("Date") = FormatDateTime(NOW) rsAddInfo.Fields("Software") = Request.ServerVariables("HTTP_USER_AGENT")
'Write the updated recordset to the database rsAddInfo.Update
'Reset server objects rsAddInfo.Close Set rsAddInfo = Nothing Set adoCon = Nothing %>
This is the error that i get
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/asp/errorlog.asp, line 35
|