---
title: "På rulande sten växer ingen mossa. Här kommer en fråga om Global.asa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11696-på-rulande-sten-växer-ingen-mossa-här-kommer-en-fråga-om-global-asa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "klementin"
published: "2001-09-19T21:48:00.000Z"
updated: "2001-09-20T08:24:00.000Z"
replies: 3
views: 245
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/11696-på-rulande-sten-växer-ingen-mossa-här-kommer-en-fråga-om-global-asa"
---

# På rulande sten växer ingen mossa. Här kommer en fråga om Global.asa

## #1 — klementin, 2001-09-19T21:48Z

Varför uppdaterar inte min Global.asa databasen som jag vill? Filen funkar förövrigt bra (med app. Online ialla fall). Här är koden:

\<SCRIPT LANGUAGE=VBScript RUNAT=Server\>
Sub Application_OnStart
Application("Online") = 0
End Sub 
Sub Session_OnStart
Session.TimeOut = 1 
Session("Start") = Now
Application.Lock
Application("Online") = Application("Online") + 1
Application.UnLock
End Sub 
Sub Session_OnEnd
Application.Lock
Application("Online") = Application("Online") - 1
Application.UnLock

DBPath = Server.MapPath("\\MINSÖKVÄGTILLDATABASEN.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";"
SQL = "UPDATE UserInfo SET "
SQL = SQL & "WebUserActive = 'Nej' "  
SQL = SQL & "WHERE WebUserName =  '" & Session("WebUserName") & "' "
Conn.Execute(SQL)

Session.Abandon

End Sub

\</SCRIPT\>

Jag vet att detta ämne är ur vattnat men jag har läst alla möjliga inlägg angående detta men får det ialla fall inte att fungera.

Tack på förhand

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

## #2 — PatrikB, 2001-09-20T06:13Z

Hello,

skulle tro att det är denna rad som spökar:

```
SQL = SQL & "WHERE WebUserName = '" & Session("WebUserName") & "' "
```

själv skulle jag vid en inloggning spara Session.SessionID i ett fält i databasen och sedan verifiera mot det när sessionen slutar.

cya,
PatrikB

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

## #3 — cherub, 2001-09-20T07:19Z

Du har inget application.lock / unlock här...

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

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

## #4 — klementin, 2001-09-20T08:24Z

Nu har jag gjort så här att när man loggar in så uppdateras ett fält i databasen med personens sessions ID sen skrev jag så här i Global.asa:

DBPath = Server.MapPath("\\SÖKVÄG.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";"
SQL = "UPDATE UserInfo SET "
SQL = SQL & "WebUserActive = 'Nej' "  
SQL = SQL & "WHERE WebUserSessionID =  '" & Session.SessionID & "' "
Conn.Execute(SQL)

Men icke sa Nicke det fungerar inte, men det vara kanske inte så här du menade?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11696-på-rulande-sten-växer-ingen-mossa-här-kommer-en-fråga-om-global-asa