<%
'initialise objects and variables
dim objConn, rstData, strMDBPath
set objConn=server.createobject("ADODB.Connection")
set rstData=server.createobject("ADODB.Recordset")
strMDBpath = Server.MapPath("/webstats/bcmc_stats.mdb")
'direct connection
objConn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath
rstData.open "PageHits",objConn,2,3
rstData.AddNew
rstData("SourcePage") = "Homepage"
rstData("Date") = now()
rstData.Update
'close resources used
rstData.close
objConn.close
'clean up
set rstData=nothing
set objConn=nothing
%>