Global.asa problema

[rofimar]

<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>



Esto es lo que puse en el global.asa, y te comento que no hay nada mas solo esto.

Y en pagina donde quiero que aparezcan las visitas puse esto:

<%=application ("vactivos")%>

gracias