Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("community.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
<SCRIPT LANGUAGE="VBScript" RUNAT=Server>
Sub Application_OnStart
End Sub
Sub Session_OnStart
End Sub
Sub Session_OnEnd
Addera1 = "Select * From members WHERE id = '"&session("id")&"'"
RecSet.Open Addera1, Connect, 3, 3
RecSet("status") = "offline"
RecSet("chatonline") = Session("username")
RecSet("chatdatum") = Now
RecSet("chatorder") = "offline"
RecSet.Update
RecSet.Close
End Sub
</SCRIPT>
För när jag startar om IIS så är det inte offline i kolumnen status m.m
Är det osäkert att göra så här eller kan man lösa det på andra sätt.
Det jag vill göra är att om en person bara stänger ner fönstret eller lämnar sidan så ska kolumnen status uppdateras med offline.
Ibland fungerar inte global.asa och session on end, ingen vekrar veta varför. Jag har varit med om att testa olika installationer av IIS och helt plötsligt har det fungerar efter ominstallation. Kan vara värt ett försök, prova å skriva något annat global.asan och se om den fungerar över huvudtaget, du har den i rooten etc
Varför ska jag ha i application_onstart, det är bara när en person lämnar sidan som jag vill sätta den till offline, inte när personen kommer till sidan.
Du måste använda session_onstart OCH session_onend.
session_onend uppstår normalt efter 20 minuter dvs inte när besökaren stänger ner webbläsaren. Om du vill känna av detta omedelbart, så måste man be besökaren logga ut, eller kontrollera om besökaren är online.
