---
title: "global.asa probelm..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14347-global-asa-probelm"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cmart"
published: "2002-02-11T13:25:00.000Z"
updated: "2002-02-11T14:15:00.000Z"
replies: 2
views: 160
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/14347-global-asa-probelm"
---

# global.asa probelm...

## #1 — Cmart, 2002-02-11T13:25Z

jag har en funktion i global.asa som skapar en lista på vilka som är inloggade på siten...hur gör jag för att filtrera bort så att ett nytt fält inte skapas om användaren redan är online...som det är nu som skrivs användaren som "online" om han ex har flera likadan fönster öppna eller om han kommer tillbaka till siten innan sessionen timat out....

så här ser det ut i global.asa

If Not rstActiveUsers.EOF Then 
rstActiveUsers.MoveLast

    rstActiveUsers.AddNew
	
	rstActiveUsers.Fields("users").Value = guser
	
	
	rstActiveUsers.Fields("id").Value = Session.SessionID
	rstActiveUsers.Update

end if

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

## #2 — LarsG, 2002-02-11T13:36Z

Du får söka igenom ditt recordset för att se om användaren redan finns.

Du kan använda metoden find

```
If Not rstActiveUsers.EOF Then 
rstActiveUsers.moveFirst
rstActiveUsers.Find "users = '" & guser & "'"
end if
if rstActiveUsers.eof then
'fanns inte lägg till
rstActiveUsers.MoveLast

rstActiveUsers.AddNew

rstActiveUsers.Fields("users").Value = guser

rstActiveUsers.Fields("id").Value = Session.SessionID
rstActiveUsers.Update

end if
```

 <http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthfindmethodado.asp>

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

## #3 — Cmart, 2002-02-11T14:15Z

funkar inte av nån konstig anledning...kan det ha nått at göra med att det är en "virtuell" databas...

Den skapas vid Application_OnStart:

Sub Application_OnStart

	
	Const adInteger = 3
	Const adVarChar = 200
	Const adDate = 7

	
	rstActiveUsers.Fields.Append "users", adVarChar, 50
	rstActiveUsers.Fields.Append "id", adInteger
	
	rstActiveUsers.Open
	
End Sub

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14347-global-asa-probelm