global.asa on Session end?

Du kan plocka ut Session("anvandarnamn") i global.asa utan problem. Vad är problemet?

Sub Session_OnEnd
.....blablabla

conn.execute "UPDATE tabell set online=0 where username='" & session(anvandarnamn") & "'"

End Sub

Global.asa ska aldrig inkluderas, aldrig någonsin. Den ska bara ligga på sin plats i applikationsroten.

Nähä nej då var det väl inget problem då
Fick massa felmeddelanden när jag inkluderade den... det var Skywalker (Bire) som lurade mig

Nu har jag gjort typ som du sa men jag får det ändå inte att fungera

Så här ser min global.asa ut, vad är felet?

<OBJECT RUNAT=Server SCOPE=Session ID=MyInfo PROGID="MSWC.MyInfo">

Sub Session_OnEnd

Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\clients\peachy.nu\scripts\databaser\medlem.mdb"
SQL = "UPDATE medlem SET status = 'Offline' WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
rs.Open SQL, MinCon, 1, 2
Session("level")=0
Session("anvandarnamn")=""
Session("losenord")=""
Session("connected")=0
Session("visits")=0
Session("lastvisit")=""

End Sub
</OBJECT>

varför använder du recordset öht

varför sätter du värden till sessioner i _onend?

sätt endast sessioner i _onstart.
vad ska du ha dem till efter _onend?

Sub Session_OnEnd

Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\clients\peachy.nu\scripts\databaser\medlem.mdb"
SQL = "UPDATE medlem SET status = 'Offline' WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
MinCon.execute (SQL)

Jo jag vet att det kanske e onödigt.. tänkte för säkerhets skull bara om de inte skapades samtidigt eller nåt.. men de borde väl inte göra att det inte funkar eller?
Testar med ditt sätt nu iaf

Ush va trött jag e på detta nu. Nu har jag tagit bort alla nollställningar etc. men det funkar ändå inte.. Man kan väl inte behöva ha en on start oxå för att det ska funka? Jag kan inte ha lagt den i fel katalog på servern heller för jag har lagt den i både roten och den där själva sidan ligger... hjälp mig jag blir tokig

kan du få global.asa att utföra något öht?

Vet inte.. har du nån enkel o felfri kod som jag skulle kunna testa med?

du kan ju exempelvis sätta application("test") = "gröfs" i application_onstart, och sedan skriva ut värdet på valfri asp-sida.

ja jag ska testa det.. jag återkommer..

Nej det verkar typ inte funka alls
Ska man ha den här raden överst i global.asa?
<OBJECT RUNAT=Server SCOPE=Session ID=MyInfo PROGID="MSWC.MyInfo">

ligger sajten på ett hotell?
eller pratar vi om din lokala utvecklingsserver / maskin?

om hotell, är du säker på att du har möjlighet att använda global.asa? det är inte alltid man har det, ser du.

Hmm... jag kör på www.netintense.se o det gör Vide oxå så jag trodde det skulle funka men jag kan ju inte vara helt säker..

Har testat i PWS oxå men där vet jag inte riktigt hur man ska göra... vilken mapp det ska vara etc.

Kan bara konstatera att global.asa fungerar som det skall på netintense...

Se till att global.asa ligger i rooten på din webplats (din_domän.com)

Ja det har jag gjort Vide men kan du visa exakt hur det står i din? Asså du kan ju ta bort det du inte vill visa o så men det e mest det här OBJECT jag e intresserad utav...

Med all viktig kod borttagen så ser det ut såhär:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
	Application("intActive_users") = Application("intActive_users") + 1

	Application("visitors") = Application("visitors")+1
End Sub

Sub Session_OnEnd

	Application("visitors") = Application("visitors")-1
	Application("intActive_users") = Application("intActive_users") - 1
	
End Sub

Sub Application_OnStart
	Application("visitors") = 0
	Application("intActive_users") = 0
	Application("DBstr") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/scripts/xxx.mdb") & ";"
End Sub

Sub Application_OnEnd

End Sub
</SCRIPT>

Jippie! Nu funkar det... jag hade Object istället för Script
1K tack till er alla..

Vassego...

såg att du fått de å funka nu, grattis... men jag tänkte på en grej... e de inte bättre att använda Id:t istället?

nu har du

Sub Session_OnEnd
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\clients\peachy.nu\scripts\databaser\medlem.mdb"
SQL = "UPDATE medlem SET status = 'Offline' WHERE anvandarnamn = '" & Session("anvandarnamn") & "'"
MinCon.execute (SQL)

men jag föreslår istället:

Sub Session_OnEnd
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\clients\peachy.nu\scripts\databaser\medlem.mdb"
SQL = "UPDATE medlem SET status = 'Offline' WHERE id = '" & Session("id") & "'"
MinCon.execute (SQL)

det som är ändrat är:
SQL = "UPDATE medlem SET status = 'Offline' WHERE id = '" & Session("id") & "'"

jag tror detta skulle bli säkrare än med medlemsnamnet utifall man har något olagligt tecken eller så med?

aja, bara ett förslag

MVH