kan man göra så här typ när användaren stänger av browsern utan och logga ut!!!
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
End Sub
Sub Session_OnEnd
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
on error resume next
Addera = "Select * From members where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet("status") = "offline"
RecSet("chatstatus") = "offline"
RecSet("minonline") = "0"
Session("meddelande") = ""
Session("inloggad") = "nej"
RecSet.Update
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.abandon
End Sub
</SCRIPT>
Istället för On Error Resume Next så skulle jag skriva typ så här:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
End Sub
Sub Session_OnEnd
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members where id=" & Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
If Not RecSet.EOF Then
RecSet("status") = "offline"
RecSet("chatstatus") = "offline"
RecSet("minonline") = "0"
Session("meddelande") = ""
Session("inloggad") = "nej"
RecSet.Update
End If
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.abandon
End Sub
</SCRIPT>
