Contador de usuarios a lo largo del dia

[Jaaic]

He estado probando y lo único que me dá resultado siendo tan simple es lo siguiente:

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

Sub Session_OnStart
Application("visitantsActius")=Applicati on("visitantsActius")+1
End Sub

Sub Session_OnEnd
Application("visitantsActius")=Applicati on("visitantsActius")-1
End Sub

Sub Application_OnStart
application("visitas")=0
application("fecha")=date()
End Sub

Sub Session_OnStart
application.lock
application("visitas")=application(&quot ;visitas")+1
application.unlock
End Sub

Aprobar.