<script language="vbscript" runat=server>
sub Application_OnStart
	application("online") = 0
end sub


sub Session_OnStart
	Session.Timeout = 20
	application.lock
	application("online") = application("online") + 1
	application.unlock
end sub

sub Session_OnEnd
	application.lock
	application("online") = application("online") - 1
	application.unlock
end sub 
</script>