<script language="vbscript" runat="server">

Sub Session_OnStart()
	session.Timeout=15
	Session("Start")=Now
	Application.Lock
	Application("online")=Application("online")+1
	Application.unlock
End Sub

Sub Session_OnEnd()
	session.timeout=15
	Application.Lock
	Application("online")=Application("online")-1
	Application.unlock
End Sub

Sub Application_OnStart()
	dim onlinemanager(0)
	application("onlineuser")=""
	application("online")=0
	application("info")=""
End Sub

Sub Application_OnEnd()
	dim onlinemanager(0)
	application("onlinemanager")=onlinemanager
	application("online")=0
	application("info")=""
End Sub

</SCRIPT>