<%Response.Buffer = True%>
<%
Dim StatsConnString
'StatsConnString = "\\path\to\your\database\ixtremestats.mdb"
StatsConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/ixtremestats.mdb")
%>
<%
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
%>
Dreamside - Multimedia Productions