Varför tas inte dom rader bort som motsvarar customerID? det funkar om jag kör koden på en vanlig sida (dvs allt innanför sub Session_OnEnd och end sub)
<script language="vbscript" runat="server">
sub Application_OnStart
end sub
sub Application_OnEnd
end sub
sub Session_OnStart
Session.Timeout = 1
response.redirect "default.asp"
end sub
sub Session_OnEnd
MM_tshirt_STRING = "liteconnectionsaker"
if(session("customerID") <> "") then
Command1__bla = session("customerID")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_tshirt_STRING
Command1.CommandText = "DELETE FROM dbo.cart WHERE customerID = " + Replace(Command1__bla, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
else
response.redirect "fel.asp"
end if
end sub
</script>
response.redirect fungerar hur bra som helst - den delen av koden fungerar....
om jag tar bort hela if then else så blir där fel om ett customer id inte är angivet...
Jag vill minnas att det enda sessionsvärdet som finns tillgängligt i global.asa är Session.SessionID, alltså inga ingående variabelvärden. Du får nog spara SessionID också och jämföra mot det i session_onend
Jag har i alla fall svårt att förstå att response.redirect skulle fungera i session_onend, men säger du att det gör det så...
aha - onend - sorry det var gammal kod som inte skulle vara med.
angående det som var tillgängligt så hade jag också ett gammalt minne men jag förtryckte det för det gör mitt arbete så himla mycket svårare... men ok, då får jag lösa det på det sättet då..
tack för hjälpen.
Bara för att en session tar slut behöver det inte betyda att session_onEnd i global.asa körs. Många har problem med att den aldrig körs, exempelvis har jag aldrig fått det att fungera. Visserligen har jag inte försökt speciellt mycket, men...
Session_OnEnd i global.asa har inget att göra med att släppa gamla sessionsid, och framför allt inte med att tilldela nya.
Lägg någon kod som garanterat ska köras, exempelvis loggning till en textfil eller så, för att se om session_onend verkligen körs.
Jag gjorde en liten sökning på google (det är inte bara du som har problem, se:sökresultaten), och hittade ett dokument, som i vanlig ordning är svårt att förstå, men av innehållet i artikeln framgår att i alla fall jag hade provat att ge IWAM_xxx tillräckliga rättigheter på databasmappar / mapp som skall skrivas fil till.
angående det du skriver anders så har jag lite svårt å förstå det för jag skriver till en sql databas å har full rättighet.. men visst jag kan ju prova :)
jodå.. :) problemet kvarstår.. ;)
ska förklara bättre..
sub Session_OnEnd()
'from här
Application.Lock
Application("visitors")=Application("visitors")-1
Application("sessionruns")=Application("sessionruns")+1
Application.UnLock
'till här fungerar det
MM_tshirt_STRING = "hemligt"
if(session.sessionID <> "") then
Command1__tempvar = session.sessionID
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_tshirt_STRING
Command1.CommandText = "DELETE FROM dbo.cart WHERE sessionID = " + Replace(Command1__tempvar, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
end if
end sub
