---
title: "hjälp med global.asa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6586-hjälp-med-global-asa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mikael_a"
published: "2000-09-13T19:44:00.000Z"
updated: "2000-09-13T21:05:00.000Z"
replies: 1
views: 174
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/6586-hjälp-med-global-asa"
---

# hjälp med global.asa

## #1 — mikael_a, 2000-09-13T19:44Z

Hej, kan jag inte göra på detta sätt? får ett "odentifierat fel i rad 7, i min räknare.

hits.asp

```

<%
'===============
'= ASP Tracker =
'===============
Strconn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("\databas\tracker.mdb")
set conn = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.Recordset")
conn.open Strconn
```

rad 7 = conn.open Strconn

den fungerar om jag tar bort följande: (i från min global.asa)

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

Sub Application_OnStart
On Error Resume Next
Set Application("Pages") = Server.CreateObject("Scripting.Dictionary")
Set Application("Host") = Server.CreateObject("Scripting.Dictionary")
Set Application("Agent") = Server.CreateObject("Scripting.Dictionary")
Set Application("Starttime") = Server.CreateObject("Scripting.Dictionary")
End Sub

Sub Session_OnStart
On Error Resume Next
Application("Starttime").Item(Session.SessionID) = Now
Application("Host").Item(Session.SessionID) = Request.ServerVariables("HTTP_HOST")
Application("Agent").Item(Session.SessionID) = Request.ServerVariables("HTTP_USER_AGENT")
End Sub

Sub Session_OnEnd
On Error Resume Next
If Application("Pages").Exists(Session.SessionID) Then
Application.Lock
Application("Pages").Remove(Session.SessionID)
Application("Host").Remove(Session.SessionID)
Application("Agent").Remove(Session.SessionID)
Application("starttime").Remove(Session.SessionID)
Application.Unlock
End If
End Sub

</SCRIPT>
```

min global.asa ser ut så här:

Global.asa

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

Sub Application_OnStart
On Error Resume Next
Set Application("Pages") = Server.CreateObject("Scripting.Dictionary")
Set Application("Host") = Server.CreateObject("Scripting.Dictionary")
Set Application("Agent") = Server.CreateObject("Scripting.Dictionary")
Set Application("Starttime") = Server.CreateObject("Scripting.Dictionary")
End Sub

Sub Session_OnStart
On Error Resume Next
Application("Starttime").Item(Session.SessionID) = Now
Application("Host").Item(Session.SessionID) = Request.ServerVariables("HTTP_HOST")
Application("Agent").Item(Session.SessionID) = Request.ServerVariables("HTTP_USER_AGENT")
End Sub

Sub Session_OnEnd
On Error Resume Next
If Application("Pages").Exists(Session.SessionID) Then
Application.Lock
Application("Pages").Remove(Session.SessionID)
Application("Host").Remove(Session.SessionID)
Application("Agent").Remove(Session.SessionID)
Application("starttime").Remove(Session.SessionID)
Application.Unlock
End If
End Sub

</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
'Add one to Application("SessionCount")
  IF IsNumeric(Application("SessionCount")) THEN
    Application("SessionCount") = Application("SessionCount") + 1
  ELSE
    Application("SessionCount") = 1
  END IF
End Sub
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnEnd
'Subtract one from Application("SessionCount")  
  IF IsNumeric(Application("SessionCount")) THEN
    Application("SessionCount") = Application("SessionCount") - 1
  ELSE
    Application("SessionCount") = 0
  END IF
End Sub
</SCRIPT>
```

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

## #2 — emission, 2000-09-13T21:05Z

Hmmm... skumt.

Men, du har två Session_OnEnd och två Session_OnStart. Det ska man inte ha. Slå ihop dem.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6586-hjälp-med-global-asa