%@ Language=VBScript %> <% Response.Buffer = True %> <% Dim HostID, Referrer, IPAddress, MyConn, ObjRec Referrer = Request.ServerVariables("HTTP_REFERER") IPAddress = Request.ServerVariables("REMOTE_ADDR") Browser = Request.ServerVariables("HTTP_USER_AGENT") HostID = Request.ServerVariables("Remote_Host") Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "dsn=viney004.data" Set ObjRec = Server.CreateObject("ADODB.Recordset") ObjRec.open "VHSiteStats", MyConn, adOpenDynamic, adLockOptimistic, adcmdtable ObjRec.AddNew ObjRec("Date") = Now() ObjRec("Referrer") = Referrer ObjRec("IPAddress") = IPAddress ObjRec("Browser") = Browser ObjRec("HostID") = HostID ObjRec("CurrentPage") = "Builders Only Page" ObjRec.Update ' Clean up time ObjRec.Close Set ObjRec = Nothing MyConn.Close Set MyConn = Nothing %>