<%
Dim rsUsers, DBConn, ConnString, SQL
Set RsUsers = Server.CreateObject("ADODB.RecordSet")
Set DBConn = server.createobject("ADODB.connection")
ConnString = "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/db.mdb")
DBConn.open ConnString
Timestamp = Date & " - " & Time
UpdateSQL = "INSERT INTO Visitors (LocalAddr,LogonUser,RemoteAddr,RemoteHost,HTTPReferer,VisitTimeStamp) Values ('" & request.ServerVariables("LOCAL_ADDR") & "','" & request.ServerVariables("LOGON_USER") & "','" & request.ServerVariables("REMOTE_ADDR") & "','" & request.ServerVariables("REMOTE_HOST") & "','" & request.ServerVariables("HTTP_REFERER") & "','" & TimeStamp & "')"
' response.write UpdateSQL
Set RsTarief = DBConn.execute(UpdateSQL)
%>
euphony-consultant
Uw
partner bij besparen
<%
DBConn.close
Set RsTarief = Nothing
Set DBConn = Nothing
%>