---
title: "suck, nu står det still :/"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48769-suck-nu-står-det-still"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Poffe"
published: "2002-07-26T13:27:35.000Z"
updated: "2002-07-26T13:41:42.000Z"
replies: 3
views: 203
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/48769-suck-nu-står-det-still"
---

# suck, nu står det still :/

## #1 — Poffe, 2002-07-26T13:27Z

det står helt still i skallen på mig :/

jag använder detta script för att se aktiva besökare:

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

	Application("aktivanu") = 0

END SUB

SUB Session_OnStart

	Session.Timeout = 10
	application.Lock
	application("aktivanu") = Application("aktivanu") + 1
	application.Unlock

END SUB

SUB Session_OnEnd

	application.Lock
	application("aktivanu") = Application("aktivanu") - 1
	application.Unlock

End sub
</script>
```

 

Det funkar ju utmärkt.. men hur lägger jag till så att den bara räknar aktiva på en speciell sida? jag vill alltså att den ska räkna aktiva på hela servern, som den gör nu och att den räcknar aktiva på en speciell sida.

Hoppas nån vet :)

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

## #2 — Ekström, 2002-07-26T13:37Z

Du får lägga in det på den sidan...

	application.Lock
	application("aktivanuSida") = Application("aktivanuSida") + 1
	application.Unlock

Sen får du köra denna i en popup eller nåt (som du öppnar med javascript)
	application.Lock
	application("aktivanuSida") = Application("aktivanuSida") - 1
	application.Unlock

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

## #3 — Poffe, 2002-07-26T13:39Z

arhh.. tänkte inte på att lägga in det på den sidan, tack!

men jag kan tyvärr inte ha en popupp där så jag kan ändå inte göra det :(

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

## #4 — Ekström, 2002-07-26T13:41Z

Då får du göra nåt liknande detta:

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

	 Application(aktivanu"& Request.ServerVariables("SCRIPT_NAME")) = 0

END SUB

SUB Session_OnStart

	Session.Timeout = 10
	application.Lock
	application("aktivanu"& Request.ServerVariables("SCRIPT_NAME")) = Application(aktivanu"& Request.ServerVariables("SCRIPT_NAME"))+1
	application.Unlock

END SUB

SUB Session_OnEnd

	application.Lock
	application("aktivanu"& Request.ServerVariables("SCRIPT_NAME")) = Application(aktivanu"& Request.ServerVariables("SCRIPT_NAME"))- 1
	application.Unlock

End sub
</script>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48769-suck-nu-står-det-still