GLOBAL.ASA Como hago?????

[sakul]

Hola gente, mi proble es el sigte. Quiero realizar una pag. ASP en la cual me cuente la cantidad de visitantes y la cantodad de visitantes activos. Dado que ambas cosas se logran con el archivo GLOBAL.ASA, como me quedaría dicho archivo al final???
Alguien es capaz de responder??

[ElAprendiz]

<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=89836' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[sakul]

Gracias ElAprendiz, pero si te refieres al mensaje de Christian Van Der Henst S. en el FAQ de ASP, allí no me dice como quedaría el archivo global.asa para que me devuelva los usuarios activos y la cant. de visitas totales al mismo tiempo!!!

Alguien sabe????

[urjose]

Este te dice los usuarios activos.
<a href='ir.asp?http://www.maestrosdelweb.com/ver.asp?asp-active' target='_blank'>http://www.maestrosdelweb.com/ver.asp?as...</a>
La cantidad de usuarios te recomiendo que sea por medio de un archivo de texto o de una base de datos. AUnque puedes adaptar el codigo del link pero si se llega a reiniciar el servidor vas a perder la cantidad de visitas que se guardan en lavariable de aplicación.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[MARKWEB]

Para usuarios activos, paginas vistas en el dia, y los visitantes del dia

Código:

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

Sub Application_OnStart()
Application.Lock
Application("ActiveUsers") = 0
Application("UsersHoy") = 0
Application("Hoy") = Date()
Application.UnLock
End Sub

Sub Application_OnEnd()
End Sub

Sub Session_OnStart()
Session("Start") = Now
Application.Lock
If Application("Hoy") = Date() Then
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application("UsersHoy") = Application("UsersHoy") + 1
Else
Application("UsersHoy") = 1
Application("PaginHoy") = 1
Application("Hoy") = Date() 
End If
Application.UnLock
End Sub

Sub Session_OnEnd()
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</script>

y pon esto en tu index.asp para llamarlos

&lt;%=Application(&quot;ActiveUsers&quot;)%&gt; usuarios activos

&lt;%=Application(&quot;UsersHoy&quot;)%&gt; visitantes hoy

&lt;%=Application(&quot;PaginHoy&quot;)%&gt; páginas hoy


supongo que será esto lo que necesitas o algo asi

[sakul]

Muchas Gracias MARKWEB, eso era justo lo que buscaba!!!!! ;)

[Owen-Bonilla]

A mi no me corre la aplicacion de PaginasHoy .... que puede pasar???

Los usuarios activos y visitantes si, todo bien...

pero lo otro no

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]