<!--#include file="statsinclude.asp"-->
<%
Dim  requeststatdate, requeststattime, requeststatpage, requeststatip, requeststatreferrer

requeststatdate = FormatDateTime(Date)
requeststattime = FormatDateTime(Now, 3)
requeststatpage = Request.ServerVariables("URL")
requeststatip = Request.ServerVariables("REMOTE_ADDR")
requeststatreferrer = Request.ServerVariables("HTTP_REFERER")

Dim rsConStats, strSQLStats, dcnDBStats

Set dcnDBStats = Server.CreateObject("ADODB.Connection")
dcnDBStats.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & StatsConnString

Set OpenDatabase = dcnDBStats
strSQLStats = "insert into stats (statdate, stattime, page, ip, referrer) values ('" & requeststatdate & "', '" & requeststattime & "', '" & requeststatpage & "', '" & requeststatip & "', '" & requeststatreferrer & "')"
Set rsConStats = dcnDBStats.Execute(strSQLStats)

Set OpenDatabase = nothing
dcnDBStats.Close
Set rsConStats = nothing
%>