global.asa e aggiornamento db

[o4o4o4]

ciao a tutti, ho scritto questo metodo nel global asa per sapere qundo l'utente è conneso e quando no! il punto è che nn va... mi sapreste dire il perche!! grazie

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Session_OnStart
' setta il timeout di default 5
STRsql = "SELECT * FROM Config"
sql = STRsql
Set con = Server.CreateObject("ADODB.Connection")
con.open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\PuntoWiFi\db\DataBase.mdb")
Set rst = Server.CreateObject("ADODB.Recordset")
Set rst = con.Execute(sql)
Session.Timeout=1
End Sub

Sub Session_OnEnd
'cambio loggato in FALSE
sql = "UPDATE Utenti SET Loggato=False WHERE IDAnagra = " & Session("IdUtente")
Set con = Server.CreateObject("ADODB.Connection")
con.open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\PuntoWiFi\db\DataBase.mdb")
Set rst = Server.CreateObject("ADODB.Recordset")
Set rst = con.Execute(sql)

'setto tutto il resto NULLO
Session("Login") = false
Session("IdUtente") = ""
Session("NumeroCodici") = ""
Session("Utente") = ""
Session("last") = ""
Session("repeat") = ""
End Sub
</SCRIPT>

[[trodat]]

Errore?

[o4o4o4]

si, nn riesce a cambiarmi il Loggato=False...

[[trodat]]

Stampa la query di update e posta il risultato.

[o4o4o4]

mm come faccio?!?!

[[trodat]]

Originariamente inviato da o4o4o4
mm come faccio?!?!

sql = "UPDATE Utenti SET Loggato = False WHERE IDAnagra = " & Session("IdUtente") 
response.write sql:response.end

[o4o4o4]

ok l'ho messo... adesso aspetto che cada la sessione e poi dove vado in cerca della scritta????

scusa ma sono ancora alle prime armi con ASP!

[[trodat]]

E allora 'sta query che stampa?

[o4o4o4]

nn so come fare la stampa!!! altrimenti te l'avrei gia messa....
se mi dici come fare te ne sarei grato!

[[trodat]]

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 

Sub Session_OnStart 
' setta il timeout di default 5 
STRsql = "SELECT * FROM Config" 
sql = STRsql 
Set con = Server.CreateObject("ADODB.Connection") 
con.open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\PuntoWiFi\db\DataBase
.mdb") 
Set rst = Server.CreateObject("ADODB.Recordset") 
Set rst = con.Execute(sql) 
Session.Timeout=1 
End Sub 

Sub Session_OnEnd 
'cambio loggato in FALSE 
sql = "UPDATE Utenti SET Loggato=False WHERE IDAnagra = " & Session("IdUtente") 
response.write sql:response.end 
Set con = Server.CreateObject("ADODB.Connection") 
con.open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\PuntoWiFi\db\DataBase
.mdb") 
Set rst = Server.CreateObject("ADODB.Recordset") 
Set rst = con.Execute(sql) 

'setto tutto il resto NULLO 
Session("Login") = false 
Session("IdUtente") = "" 
Session("NumeroCodici") = "" 
Session("Utente") = "" 
Session("last") = "" 
Session("repeat") = "" 
End Sub 
</SCRIPT>