%Session("Counter") = 0
vip=Request.ServerVariables("REMOTE_ADDR")
vrefer=Request.ServerVariables("HTTP_REFERER") & Request.ServerVariables("URL")
vtime=time
vdate=date
vhost=Request.ServerVariables("REMOTE_HOST")
Session("IP") = vip
SQLQuery= "INSERT INTO Tab_Visitors (ipnum, refer, currtime, currdate, remhost)"
SQLQuery= SQLQuery & "VALUES( '" & vip & "', '" & vrefer & "', '" & vtime & "', '" & vdate & "', '" & vhost & "')"
Set oConn = Server.CreateObject("ADODB.Connection")
oconn.open "online_versadrill","online","0nl1n3"
oConn.Execute(SQLQuery)
oConn.close
Set oConn = nothing
%>
VersaDrill Canada - Foreuse kmB .8