Foros del Web » Programando para Internet » ASP Clásico »

global.asa

Estas en el tema de global.asa en el foro de ASP Clásico en Foros del Web. Sólo me funciona el contador de activos y no el de "hoy" ¿Qué hay mal? A simple vista me parece correcto. Global.asa <script language="VBScript" runat="Server"> ...
  #1 (permalink)  
Antiguo 30/03/2006, 10:06
 
Fecha de Ingreso: noviembre-2002
Ubicación: Elche
Mensajes: 548
Antigüedad: 22 años, 5 meses
Puntos: 0
global.asa

Sólo me funciona el contador de activos y no el de "hoy"

¿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
  #2 (permalink)  
Antiguo 30/03/2006, 10:19
Avatar de mc_quake  
Fecha de Ingreso: enero-2006
Ubicación: www.ecocargo.cl
Mensajes: 683
Antigüedad: 19 años, 3 meses
Puntos: 8
al parecer faltan los parentecis despues de la palabra DATE

DATE()
__________________
Mc_Quake

Para ayudar en lo que se pueda:Zzz:
  #3 (permalink)  
Antiguo 30/03/2006, 10:48
 
Fecha de Ingreso: noviembre-2002
Ubicación: Elche
Mensajes: 548
Antigüedad: 22 años, 5 meses
Puntos: 0
Ha sido al trascribir en el fichero esta bien.

He hecho una prueba. He cambiado el nombre del control de visitantes activos por "prueba" y no va cuando lo cambio... Obviamente en el documento también lo cambio... Activos = <%=Application("prueba")%> y no funciona. Ejemplo

<script language="VBScript" runat="Server">

Sub Application_OnStart

End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Application.Lock
Application("prueba")=Application("prueba")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("prueba")=Application("prueba")-1

Application.UnLock
End Sub

</script>

Sólo va con visitante. No puedo usar otro nombre...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:30.