GLOBAL.ASA

30/01/2006 - 18:55 por Nano | Informe spam
Hola que tal a todos!

quiero saber si este codigo esta bien
la idea es que cuando se salga del browser el usuario, me setee una variable
en una tabla
es posible?

saludos
<SCRIPT LANGUAGE=VBScript RUNAT=server>

sub application_onStart()

end sub

sub application_onEnd()

end sub

sub session_onStart()

end sub

sub session_onEnd()
dim conn
dim strConn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=SQL
SERVER;SERVER=Server-WEBSERV;DATABASEÁ;UID=U1;PWD=P1;DSN="
conn.execute("Update C_Accesos set accion = 'salida' where usuario
='"&session("login")&"'")
set conn = nothing
set connSql = nothing
end sub

</SCRIPT>

Preguntas similare

Leer las respuestas

#1 Manuel Vera
27/01/2006 - 19:29 | Informe spam
El codigo parece estar OK, salvo que debes colocar espacios en blanco a cada
lado del simbolo & y parece que lo tienes unido a lo demás.

Otra cosa, debes recordar que cuando un visitante cierre el navegador web no
se dispara inmediatamente ese codigo que escribiste. Por defecto una session
dura viva unos 20 minutos. Ese es el tiempo que demorará en ejecutarse ese
codigo tras cerrarse el navegador web.

Otra consideración es que no todos los navegadores web están habilitados
para las variables de session o estas han sido desactivadas por los
usuarios. En esos casos tu codigo no servira.
Una manera que tienes para verificar tu codigo es colocando un link en tu
web que apunte a una pagina x, por ejemplo: salir.asp, y que tenga por
codigo lo siguiente:
<%session.abandon()%>

Saludos
MV

"Nano" escribió en el mensaje
news:%
Hola que tal a todos!

quiero saber si este codigo esta bien
la idea es que cuando se salga del browser el usuario, me setee una
variable en una tabla
es posible?

saludos
<SCRIPT LANGUAGE=VBScript RUNAT=server>

sub application_onStart()

end sub

sub application_onEnd()

end sub

sub session_onStart()

end sub

sub session_onEnd()
dim conn
dim strConn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=SQL
SERVER;SERVER=Server-WEBSERV;DATABASEÁ;UID=U1;PWD=P1;DSN="
conn.execute("Update C_Accesos set accion = 'salida' where usuario
='"&session("login")&"'")
set conn = nothing
set connSql = nothing
end sub

</SCRIPT>


Respuesta Responder a este mensaje
#2 Matías Iacono
30/01/2006 - 23:11 | Informe spam
El codigo es correcto, aunque noto que la cadena de conexion no es de las
que uso. :)

De cualquier manera, por lo que comentas, quieres que el codigo se dispare
cuando el browser se cierre. En realidad, esto no pasará de esta manera,
solo se ejecutará el codigo despues de que la session caduque, o sea, pueden
ser 20 minutos, si lo tienes como tiempo estandard, o el tiempo que le hayas
colocado.

Por otro lado, el session end, no siempre se dispara, esto se debia a un
problema con ASP, aunque en ASP.net se soluciono.

Saludos.

Matías Iacono
Microsoft MVP ASP/ASP.net
DCE3 v.2003 - DCE2 v.2005
Coordinador de evento Comunidad MSDN Bolivia
"Nano" escribió en el mensaje
news:%
Hola que tal a todos!

quiero saber si este codigo esta bien
la idea es que cuando se salga del browser el usuario, me setee una
variable en una tabla
es posible?

saludos
<SCRIPT LANGUAGE=VBScript RUNAT=server>

sub application_onStart()

end sub

sub application_onEnd()

end sub

sub session_onStart()

end sub

sub session_onEnd()
dim conn
dim strConn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=SQL
SERVER;SERVER=Server-WEBSERV;DATABASEÁ;UID=U1;PWD=P1;DSN="
conn.execute("Update C_Accesos set accion = 'salida' where usuario
='"&session("login")&"'")
set conn = nothing
set connSql = nothing
end sub

</SCRIPT>


Respuesta Responder a este mensaje
#3 Nano
02/02/2006 - 18:47 | Informe spam
gracias por responder muchachos

pero lamentablemente no anda, a las 30 minutos no almacena nada el
global.asa

alguna idea que pueda correr o suceder?

saludos
Nano

"Nano" wrote in message
news:%
Hola que tal a todos!

quiero saber si este codigo esta bien
la idea es que cuando se salga del browser el usuario, me setee una
variable en una tabla
es posible?

saludos
<SCRIPT LANGUAGE=VBScript RUNAT=server>

sub application_onStart()

end sub

sub application_onEnd()

end sub

sub session_onStart()

end sub

sub session_onEnd()
dim conn
dim strConn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=SQL
SERVER;SERVER=Server-WEBSERV;DATABASEÁ;UID=U1;PWD=P1;DSN="
conn.execute("Update C_Accesos set accion = 'salida' where usuario
='"&session("login")&"'")
set conn = nothing
set connSql = nothing
end sub

</SCRIPT>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida