<script language=vbscript runat=server>
sub application_onstart
application("number")=0
end sub
Sub Session_OnStart
application.lock
application("number")=application("number")+1
application.unlock
end sub
Sub Session_OnEnd
application.lock
application("number")=application("number")-1
application.unlock
end sub
</script>