Global.asa

actualmente cuento el numero de visitantes activos y los visitantes en el
dia d hoy mediante el global.asa

Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0

y en
Sub Session_OnStart
...

voy añadiendo

estas estadisticas funcionan correctamente, se resetean cada dia.

la pregunta es como hacer para q se reseteen cada 24 h, como ya lo hacen
peeero en otro horario q no sea el del servidor

con la diferencia horaria las estadisitcas se resetean hacia las 8 d la
tarde :S

alguna idea?

Insomnia wrote:

> actualmente cuento el numero de visitantes activos y los visitantes en

> dia d hoy mediante el global.asa
>
> Sub Application_OnStart
> Application("ActiveUsers") = 0
> application("visitas")=0
>
> y en
> Sub Session_OnStart
> ...
>
> voy añadiendo
>
> estas estadisticas funcionan correctamente, se resetean cada dia.
>
> la pregunta es como hacer para q se reseteen cada 24 h, como ya lo hacen
> peeero en otro horario q no sea el del servidor
>
> con la diferencia horaria las estadisitcas se resetean hacia las 8 d la
> tarde :S
>
> alguna idea?
>
>
Puedes usar la fecha del sistema, guardas en una variable de aplicación
la fecha actual, y cuando la fecha actual sea diferente a la almacenada
reseteas:

Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0
application("fecha")=Date(Now)


Sub Session_OnStart
if application("fecha")<>Date(Now) then
Application("ActiveUsers") = 0
application("visitas")=0
application("fecha")=Date(Now)
end if


Un saludo.

con esta solución se resetearían las estadisticas de igual manera no??? :S
date(now) seri ala fecha del servidor???


Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0

end sub

Sub Session_OnStart

Session.Timeout = 20
Session("Start") = Now
application.lock
application("visitas")=application("visitas")+1
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub

"Raul" escribió en el mensaje
news:fkybb.159075$

Insomnia wrote:

actualmente cuento el numero de visitantes activos y los visitantes en

el

dia d hoy mediante el global.asa

Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0

y en
Sub Session_OnStart
...

voy añadiendo

estas estadisticas funcionan correctamente, se resetean cada dia.

la pregunta es como hacer para q se reseteen cada 24 h, como ya lo hacen
peeero en otro horario q no sea el del servidor

con la diferencia horaria las estadisitcas se resetean hacia las 8 d la
tarde :S

alguna idea?

Puedes usar la fecha del sistema, guardas en una variable de aplicación
la fecha actual, y cuando la fecha actual sea diferente a la almacenada
reseteas:

Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0
application("fecha")=Date(Now)


Sub Session_OnStart
if application("fecha")<>Date(Now) then
Application("ActiveUsers") = 0
application("visitas")=0
application("fecha")=Date(Now)
end if


Un saludo.

Eso no funcionaría, para que vas a usar la variable Session("Start")?


Insomnia wrote:

> con esta solución se resetearían las estadisticas de igual manera no???

> date(now) seri ala fecha del servidor???
>
>
> Sub Application_OnStart
> Application("ActiveUsers") = 0
> application("visitas")=0
>
> end sub
>
> Sub Session_OnStart
>
> Session.Timeout = 20
> Session("Start") = Now
> application.lock
> application("visitas")=application("visitas")+1
> Application("ActiveUsers") = Application("ActiveUsers") + 1
> Application.UnLock
> End Sub
>
> "Raul" escribió en el mensaje
> news:fkybb.159075$
>
>>Insomnia wrote:
>>
>>
>>>actualmente cuento el numero de visitantes activos y los visitantes en
>
> el
>
>>>dia d hoy mediante el global.asa
>>>
>>>Sub Application_OnStart
>>> Application("ActiveUsers") = 0
>>> application("visitas")=0
>>>
>>>y en
>>>Sub Session_OnStart
>>> ...
>>>
>>>voy añadiendo
>>>
>>>estas estadisticas funcionan correctamente, se resetean cada dia.
>>>
>>>la pregunta es como hacer para q se reseteen cada 24 h, como ya lo

>>>peeero en otro horario q no sea el del servidor
>>>
>>>con la diferencia horaria las estadisitcas se resetean hacia las 8 d la
>>>tarde :S
>>>
>>>alguna idea?
>>>
>>>
>>
>>Puedes usar la fecha del sistema, guardas en una variable de aplicación
>>la fecha actual, y cuando la fecha actual sea diferente a la almacenada
>>reseteas:
>>
>>Sub Application_OnStart
>> Application("ActiveUsers") = 0
>> application("visitas")=0
>> application("fecha")=Date(Now)
>>
>>
>>Sub Session_OnStart
>> if application("fecha")<>Date(Now) then
>>Application("ActiveUsers") = 0
>>application("visitas")=0
>>application("fecha")=Date(Now)
>> end if
>>
>>
>>Un saludo.
>>
>
>
>

este codigo es el q tengo puesto ahora y funciona

:S


"Raul" escribió en el mensaje
news:veGbb.173954$

Eso no funcionaría, para que vas a usar la variable Session("Start")?


Insomnia wrote:

con esta solución se resetearían las estadisticas de igual manera no???

:S

date(now) seri ala fecha del servidor???


Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0

end sub

Sub Session_OnStart

Session.Timeout = 20
Session("Start") = Now
application.lock
application("visitas")=application("visitas")+1
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub

"Raul" escribió en el mensaje
news:fkybb.159075$

Insomnia wrote:

actualmente cuento el numero de visitantes activos y los visitantes en

el

dia d hoy mediante el global.asa

Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0

y en
Sub Session_OnStart
...

voy añadiendo

estas estadisticas funcionan correctamente, se resetean cada dia.

la pregunta es como hacer para q se reseteen cada 24 h, como ya lo

hacen

peeero en otro horario q no sea el del servidor

con la diferencia horaria las estadisitcas se resetean hacia las 8 d la
tarde :S

alguna idea?

Puedes usar la fecha del sistema, guardas en una variable de aplicación
la fecha actual, y cuando la fecha actual sea diferente a la almacenada
reseteas:

Sub Application_OnStart
Application("ActiveUsers") = 0
application("visitas")=0
application("fecha")=Date(Now)


Sub Session_OnStart
if application("fecha")<>Date(Now) then
Application("ActiveUsers") = 0
application("visitas")=0
application("fecha")=Date(Now)
end if


Un saludo.