---
title: "Ett enkelt konstigt fel i min global.asa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11893-ett-enkelt-konstigt-fel-i-min-global-asa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lukaspojken"
published: "2001-10-01T18:35:00.000Z"
updated: "2001-10-01T19:06:00.000Z"
replies: 2
views: 167
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/11893-ett-enkelt-konstigt-fel-i-min-global-asa"
---

# Ett enkelt konstigt fel i min global.asa

## #1 — Lukaspojken, 2001-10-01T18:35Z

Jag vill bara räkna antal besökare online och så här ser min global.asa ut:

```
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
	Application("visitors") = Application("visitors") + 1 
End Sub

Sub Session_OnEnd
	Application("visitors") = Application("visitors") - 1
End Sub

Sub Application_OnStart
	Application("visitors") = 0
End Sub

</SCRIPT>
```

När jag skriver ut application så känns det som det är alltför många på siten. Stämmer koden?

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

## #2 — Wiberg, 2001-10-01T18:43Z

Orkar inte kolla igenom din kod så här kommer en som funkar. ;)

```
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

SUB Application_OnStart 
Application("visitors") = 0
END SUB 

SUB Session_OnStart 
Application("visitors") = Application("visitors") + 1 
END SUB 

Sub Session_OnEnd 
Application("visitors") = Application("visitors") - 1 
End Sub 

Sub Application_OnEnd 

End Sub 

</SCRIPT>
```

\[r\] Efter att ha kollat på din kod så upptäckte jag en viss likhet med min... :)

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

## #3 — Lukaspojken, 2001-10-01T19:06Z

Det såg väldigt likt ut. Men du har en sub som jag inte har men den borde inte behövas för det finns inget i den.

Jag testade den här koden istället. Sökte lite på forumet. Men hur får jag bort en från active user om personen loggar ut självmant?

```
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
	' Set our user count to 0 when we start the server
	Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
	' Change Session Timeout to 20 minutes (if you need to)
	Session.Timeout = 20
	' Set a Session Start Time
	' This is only important to assure we start a session
	Session("Start") = Now
	' Increase the active visitors count when we start the session
	Application.Lock
		Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub

Sub Session_OnEnd
	' Decrease the active visitors count when the session ends.
	Application.Lock
		Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
End Sub

</SCRIPT>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11893-ett-enkelt-konstigt-fel-i-min-global-asa