sub Application_OnStart

Application("conn")="dsn=;uid=;pwd="

end sub

Sub session_onstart

session("ip")=Request.ServerVariables("REMOTE_ADDR")

session("stime")=now()

application.Lock

if application("clicks")="" then

application("clicks")=0

end if

application("clicks")=application("clicks")+1

application.UnLock

End Sub

Sub Session_Onend

application.Lock

StrSQL="dsn=;uid=;pwd="

set conn=server.createobject("ADODB.CONNECTION")

conn.open StrSQL

SQL = "insert into client(c_date,stime,etime,ip) values('"&date()&"','"&session("stime")&"','"&now()&"','"&session("ip")&"')"

conn.Execute(sql)

conn.Close

set conn=nothing

application.UnLock

End Sub