Muy bueno, Tronxito, pero hace falta decirle en Session_OnStart para un nuevo día que si la fecha actual es distinta que la que tenemos almacenada en nuestra variable de aplicación entonces cambie esa fecha a la nueva y ponga el contador de visitas de nuevo a 0.
También falta bloquear en Sub Application_OnStart:
Sub Application_OnStart
application.lock
application("visitas")=0
application("fecha")=date()
application.UnLock
End Sub
Sub Session_OnStart
application.lock
If application("fecha") = Date() Then
application("visitas")=application(" ;visitas")+1
Else
application("fecha") = Date()
application("visitas") = 0
application.unlock
End Sub
Laika, pruébalo y nos cuentas, debe funcionarte bien. Un abrazo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>