Global.asa og online users

Hvordan kan jeg lave den her så den kun lægger +1 til hvis det helt præcist er session("Usertype") som bliver sat til "Admin", "Owner", eller "User", og selvfølgelig kun trækker fra hvis det er en af de sessions der udløber?
Her er min code:
<script language="vbscript" runat="server">

Sub Application_OnStart
Application("Users")=0
End Sub

Sub Session_OnStart
Application.Lock
Application("Users")=Application("Users")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Users")=Application("Users")-1
Application.UnLock
End Sub

</script>