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>
 

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>


Preguntas similares