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)
	dim onlineuserdim(0)
	dim netmeetinginfodim(0)
	application("onlinemanager")=onlinemanager
	application("onlineuser")=onlineuserdim
	application("netmeetinginfo")=netmeetinginfodim
	application("online")=0
	application("info")=""
End Sub

Sub Application_OnEnd()
	dim onlinemanager(0)
	dim onlineuserdim(0)
	dim netmeetinginfodim(0)
	application("onlinemanager")=onlinemanager
	application("onlineuser")=onlineuserdim
	application("netmeetinginfo")=netmeetinginfodim
	application("online")=0
	application("info")=""

End Sub

</SCRIPT>

