webForumDet fria alternativet

global.asa.....

3 svar · 147 visningar · startad av McMiller

McMillerMedlem sedan okt. 2000238 inlägg
#1

Jag håller på med ett utloggnigsgrejs som inblandar global.asa. jag har gjort en funktion i global.asa som innehåller en databaskoppling samt ändrar online till offline. funktionen anropas från Sub Session_OnEnd. men det fungerar inte. inget händer. så jag undrar om nån kan hjälpa mig

koden från global.asa:

Sub offlogger
state=Session("UserId")
Set rs=Server.CreateObject("ADODB.Recordset")

Conn.Open "driver={MicroSoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/c3/db/usr_cltv.mdb") & " ;PWD=kroko"

logg = "UPDATE usr_tbl Set online=FALSE WHERE nick= '"&TRIM(state)&"' "
Conn.Execute(logg)

Conn.Close
Set Conn=nothing
rs.Close
Set rs=nothing
End Sub

Sub Application_OnStart
Application.Lock
Application("online") = 0
Application.Unlock
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Session.TimeOut = 10
Application.Lock
Application("online") = Application("online") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("online") = Application("online") - 1
Application.Unlock
offlogger
End Sub

------------------
//McMiller

"Jag har tiden på min sida när jag gör diamanter av guld..."

rymdknarkMedlem sedan maj 2000175 inlägg
#2

vrför använder du Application-variableln, istället för Session-variablen...?

McMillerMedlem sedan okt. 2000238 inlägg
#3

Om du menar de grejs som är i applivationblocken så har inte de med med mitt problem att göra. de är bara med för att jag inte orkade ta bort dem utan kopierade allt som fanss i global.asa...:)
Problemet är databaskopplingen.

------------------
//McMiller

"Jag har tiden på min sida när jag gör diamanter av guld..."

BenganMedlem sedan juni 2000690 inlägg
#4

Det kan bero på att du använder Server.MapPath, prova med hela sökvägen istället. Server.MapPath funkar inte alltid i Global.asa av nån anledning...

Sen kan du ju prova och skippa subben offlogger och lägga koden direkt i Sub Session_OnEnd

------------------
MvH
/Bengan
www.bengan.com
"Better to be hated for who you are than loved for who you're not."

125 ms totalt · 3 externa anrop · v20260731065814-full.beb2e261
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
123 ms — hämta tråd, inlägg och bilagor (db)