Logga ut

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>

------------------
ASP är bäst fuck the rest!!!

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>

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

jag råka skriva fel men funkar inte när man typ lämnar browsern vill jag att användaren loggas ut

------------------
ASP är bäst fuck the rest!!!

när anropas session_onend????????

------------------
ASP är bäst fuck the rest!!!

hallllllllllååååååååååå

------------------
ASP är bäst fuck the rest!!!

Session On End körs när en individuell session stängs ner, vanligt vis 20 min efter att besökaren lämnar sidan, om man har default inställt

------------------
FEL!!
FÖR MYCKET NAKENHET I SIGNATUREN

typ vis session.timeout

------------------
ASP är bäst fuck the rest!!!

typ vid session.timeout

------------------
ASP är bäst fuck the rest!!!