Hola cokete,
Yo uso el siguiente global.asa
Código:
<script Language="VBScript" RUNAT=Server>
Sub Application_OnEnd()
Application.Contents.RemoveAll()
End Sub
Sub Application_OnStart()
' Aqui no hace falta bloquearlas
Application("NumSesion") = 0
Application("NumVisitas") = 0
End Sub
Sub Session_OnEnd()
Application.lock()
Application("NumSesion") = Application("NumSesion") - 1
Application.unlock()
Session.Abandon
End Sub
Sub Session_OnStart()
Application.lock()
Application("NumSesion") = Application("NumSesion") + 1
Application("NumVisitas") = Application("NumVisitas") + 1
Application.unlock()
End Sub
</script>
Luego solo tienes que leer la variable de Application NumSesion tal que asi:
response.write(Application("numSesion"))
Un saludo