Get the visitor's departure time

<script Language=vbscript runat=server>

Sub Application_OnStart

Application ("conn") = "dsn=;uid=;p wd="

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=;p wd="
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