---
title: "Logga ut"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13480-logga-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-12-31T12:44:00.000Z"
updated: "2002-01-01T20:50:00.000Z"
replies: 7
views: 200
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13480-logga-ut"
---

# Logga ut

## #1 — jboy_87, 2001-12-31T12:44Z

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>
```

Permalänk: https://www.webforum.nu/p/13480

## #2 — Erik Juhlin, 2001-12-31T12:53Z

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>
```

Permalänk: https://www.webforum.nu/p/302264

## #3 — jboy_87, 2001-12-31T12:56Z

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

Permalänk: https://www.webforum.nu/p/302265

## #4 — jboy_87, 2001-12-31T12:59Z

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

Permalänk: https://www.webforum.nu/p/302266

## #5 — jboy_87, 2001-12-31T13:27Z

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

Permalänk: https://www.webforum.nu/p/302267

## #6 — webzonen, 2002-01-01T18:47Z

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

Permalänk: https://www.webforum.nu/p/302268

## #7 — jboy_87, 2002-01-01T20:50Z

typ vis session.timeout

Permalänk: https://www.webforum.nu/p/302269

## #8 — jboy_87, 2002-01-01T20:50Z

typ vid session.timeout

Permalänk: https://www.webforum.nu/p/302270

---

Tråden på webben: https://www.webforum.nu/amne/asp/13480-logga-ut