%
' Dim CustID
' Dim objConn, dbPath
' CustID = Request.QueryString("i")
' If Len(Trim(CustID)) = 8 Then ' Execute TimeStamp in database
' dbpath = "d:\html\users\azingzangnet\database\mail2000j.mdb"
' Response.Write "==> " & dbPath
' Set objConn = Server.CreateObject("ADODB.Connection")
' objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
'
' 'Check For the Connection Object
'
' If IsEmpty(objConn) Then
' Response.write "
Connection Failed"
' Set objConn =Nothing
' 'HandleErrors strFileName, Err1000, Err.Description
' Else
' Response.write "
Connection good"
' mSQL = "Update EmailSent SET VisitedSite =#" & Now() & "# WHERE Customer_ID ='" & CustID & "' AND Page_ID='LINDACD';"
' REsponse.write "
mSQL: " & mSQL
'objConn.Execute(mSQL)
' set objConn = nothing ' clean up
' End if
' 'Set Error Trapping
'End If
%>