actualizar BD al cerrar ventana

webpedaler · #1 (**permalink**) 28/08/2003, 17:18

Hola necesito hacer una actualizacion a la BD cuando el usuario cierre la ventana del navegador.Se puede obviamente si le pongo un boton cerrar . Pero y si el usuario no lo clikea ya no sirbe .

Lo probe con onUnload . Cosa que al cerrar la ventana se abra una un asp que me actualize la bd( esa ventana que se abre es de 50x50 no se ve y una vez que se hace la actuliazación se cierra sola la vanetana).
Pero no siempre se actualiza la bd , porque a veces simplemente no funciona el onUnload.

Código PHP:

   
 
 
<SCRIPT LANGUAGE="JavaScript">

        <!-- BEGIN CONS CODE

        var leave=true;

        function bye()

        {

        if (leave)         

        window.open("asp_setmeoffline.asp");

        

        }

        // END CONS CODE -->

        </script>

</head>

 
<body  topmargin="0" leftmargin="0" onUnload="bye()"  >

Tambien vi por alli este codigo pero no me funciono

Código PHP:

  <SCRIPT language="VBScript"> 

Sub window_OnBeforeUnLoad() 

window.navigate("asp_setmeoffline.asp") 

End Sub 

</SCRIPT>

ahora e visto por ahi vagamente esplicado que se puede hacer con global.asa. Cosa que al momento de que el usuario seva del sitio se ejecuta esa actualizacion de la bd.

Pero mi consulta es como meto ese codigo en el global.asa , porque hise algo y no me resulto snifff

Código PHP:

  <SCRIPT language= "Vbscript" runat= "server">

 
Sub Application_onStart

End Sub

 
Sub session_onStart

 
End sub

 
Sub session_onEnd

   Set ConnObj = Server.CreateObject("ADODB.Connection")

 
  DBRoot = "E:\webasp\mibd.mdb"

  DataBase = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& DBRoot

  ConnObj.Open DataBase

  

Sql = "Update Registros Set disponible='" & no & "' Where user='" & usercookie & "'"

  

  ConnObj.Execute(Sql)

 
End Sub

 
</SCRIPT>

alguien me hecha una manita

nazkatuta · #2 (**permalink**) 29/08/2003, 01:03

Hola,

lo del global asa lo veo bien salvo que las variables "usercookie" y "no" no tienen ningun valor. De donde cojes ese valor?

webpedaler · #3 (**permalink**) 29/08/2003, 12:39

mmmm haber si es que lo tipie mal , pero aun que ponga
ejemplo los datos directos no pasa nada con la bd.

<SCRIPT language= "Vbscript" runat= "server">

Sub Application_onStart
End Sub

Sub session_onStart

End sub

Sub session_onEnd
Set ConnObj = Server.CreateObject("ADODB.Connection")

DBRoot = "E:\webaspmibd.mdb"
DataBase = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& DBRoot
ConnObj.Open DataBase

no="0"
usercookie="14"
Sql = "Update Registros Set disponible='" & no & "' Where user='" & usercookie & "'"

ConnObj.Execute(Sql)

End Sub

</SCRIPT>