Contador de usuarios a lo largo del dia

[Laika]

Hola amigos, tengo problemas con el código. En el archivo global.asa que tenía, estaba el código para contar usuarios activos y le he añadido este código y no me funciona. El archivo global.asa me ha quedad así:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
application.lock
application("visitas")=0
application("fecha")=date()
application.UnLock
Application("ActiveUsers") = 0
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
End Sub

Sub Session_OnStart
Session.Timeout = 20
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1

If application("fecha") = Date() Then
application("visitas")=application(&quot ;visitas")+1
Else
application("fecha") = Date()
application("visitas") = 0
Application.UnLock

End Sub

Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

</SCRIPT>

Gracias, haber si le veis el fallo.

Laika