<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim mRs,Userip,User,Oto,Zzday,Counter,CountemRs,Today,Daynum,Yesterday,Top,Stats,Browser
	User=Request.QueryString("User")
	Userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If Userip = "" Then Userip = Request.ServerVariables("REMOTE_ADDR")

Set mRs=Server.CreateObject("adodb.recordSet")
	Sql="Select * from Counter"
	mRs.open Sql,conn,1,3
	Oto=mRs("Oto")
If Oto<>date() then
	Zzday=date()-1
	application.lock
	conn.Execute"Update Counter Set Today=0,Browser=0,Oto=date(),Daynum=Daynum+1,Yesterday="&mRs("Today")&""
	conn.Execute"Insert into Zzday(Zzday,Stats,Browser) values ('"&Zzday&"',"&mRs("Today")&","&mRs("Browser")&")"
	application.unlock

	Set mRs=Server.CreateObject("adodb.recordSet")
	Sql="delete from UserandIP"
	mRs.open Sql,conn,1,3
	mRs.close
	Set mRs=nothing
Else
	application.lock
	conn.Execute"Update Counter Set Browser=Browser+1"

	Set mRs=Server.CreateObject("adodb.recordSet")
	Sql="Select * from UserandIP where IP='"&Userip&"' order by Id desc"
	mRs.open Sql,conn,1,3
If mRs.bof and mRs.eof then
	mRs.addnew
	mRs("IP")=Userip
	mRs("User")=User
	mRs.update
	conn.Execute"Update Counter Set Counter=Counter+1,Today=Today+1"
End If
	mRs.close
	Set mRs=nothing
	application.unlock
End If
	Set mRs=Server.CreateObject("adodb.recordSet")
	Sql="Select * from Counter"
	mRs.open Sql,conn,1,3
If mRs("Top")<mRs("Today") then
	conn.Execute"Update Counter Set [Top]="&mRs("Today")&""
End If
	mRs.close
	Set mRs=nothing
	conn.close
	Set conn=nothing
%>