Ke tal, pues aqui esta mi codigo tal y como lo tengo en mi pag
Archivo global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application("vactivos")=0
application("fecha")=date()
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
application.lock
application("vactivos")=application("vactivos")+1
application.unlock
End Sub
Sub Session_OnEnd
application.lock
application("vactivos")=application("vactivos")-1
application.unlock
End Sub
</SCRIPT>
Llamada del contador
Hay <%=application("vactivos")%> usuarios
Puedes probar con ese y me dices que tal, igual algo estaba haciendo mal tu codigo
saludos