¿Qué hay mal? A simple vista me parece correcto.
Global.asa
<script language="VBScript" runat="Server">
Sub Application_OnStart
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Application.Lock
if Application("dia")<> Date then
Application("hoy")=1
Application("dia")=Date
else
Application("hoy")=Application("hoy")+1
end if
Application("visitante")= Application("visitante")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitante")= Application("visitante")-1
Application.UnLock
End Sub
</script>
otro documento:
<br>Ahora: <%=Application("visitante")%>
<br>Hoy: <%=Application("hoy")%>
Saludos
