variables de Application

hola,

Esa variable estará en la memoria del servidor si no lo reinician.
En cuanto reinician la aplicación (tu sitio web) esos valores se pierden.
Además, asegurate de hacer Lock y UnLock antes de cambiar los valores.
Por ejemplo, esto es lo que uso en Session_OnStart:
Application.Lock
Application("Usuarios") = Application("Usuarios") + 1
Application.Unlock

Nos vemos.
Guillermo
P.S.
Si te parece últil mi sitio:
http://www.elguille.info/lonuevo/lo....htm#dic30
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"Neyla" wrote in message
news:021f01c3d17a$3de5c6f0$
Mostrar la cita

hola a todos

tengo problemas con el uso de las variables del objeto
Application, supuestamente se deben almacenar en la
memoria del servidor pero en este caso creo que no lo hace
El ejemplo trata de llevar el conteo de la cantidad de
visitantes de la pagina, lo saque de un libro

Les agradeceria mucho su ayuda

Neyla


Private Sub Page_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load

Dim Valor As Integer
Application.Lock()
Valor = CInt(Application.Get("visitantes")) + 1
Application.Add("visitantes", Valor)
Application.UnLock()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click

Response.Write(Application.Get("visitantes"))

End Sub

gracias por la corrección, pero el código lo copié de mi "global.asa" no .asax,
así que me funcionaba bien...

Nos vemos.
Guillermo
P.S.
Si te parece últil mi sitio:
http://www.elguille.info/lonuevo/lo....htm#dic30
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"SqlRanger" wrote in message
news:
Sólo añadir que como la primera vez que se ejecuta el código
Application("Usuarios") es Nothing, esto provocaría un error por lo que sería
mejor codificarlo así:

Application.Lock
If Not Application("Usuarios") Is Nothing Then
Application("Usuarios") = Application("Usuarios") + 1
Else
Application("Usuarios") = 1
End If
Application.Unlock



Por otra parte, tiene razón Guille al proponer que el código se ejecute en el
evento del Global.asax Session_OnStart, ya que si lo ponemos en la página no
serían el número de usuarios sino el número de veces que se accede a la página.


Saludos:

Jesús López
MVP Microsoft .NET

"No darás tropezón ni desatino que no te haga adelantar camino"

Gracias guille, me sirvio mucho tu sugerencia

te cuento que el que estaba mal era el metodo
Application.Add("visitante",valor) , en realidad funciono
con:
Application("visitante")=Application("visitante")+1

Gracias SqlRanger

me ayudaste a darme cuenta que en realidad no estaba
contando el Nro de visitantes sino de actualizacion de la
pagina