---
title: "Global.asa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11048-global-asa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pellsäter"
published: "2001-08-10T08:49:00.000Z"
updated: "2001-08-10T13:40:00.000Z"
replies: 5
views: 236
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/11048-global-asa"
---

# Global.asa

## #1 — pellsäter, 2001-08-10T08:49Z

Brådis!!

Är det nån som har nån förklaring på detta..''

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Could not find file '(unknown)'. 

//global.asa, line 4 

Så här ser Global ut

\<SCRIPT LANGUAGE=VBScript RUNAT=Server\>
Sub Session_OnStart
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open Application("DBstr")

	strIp = Request.ServerVariables("REMOTE_HOST")
	strKlient = Request.ServerVariables("HTTP_USER_AGENT")
	dtmDatum = Now
	strReferer = Request.ServerVariables("HTTP_REFERER")

	if not instr(request.servervariables("http_referer"),
request.servervariables("server_name")) \>0 then
	strFirstPage = request.servervariables("script_name")

	SQL = "INSERT INTO logg (dtm, ip, klient, referer, forstasidan) VALUES (#"
& dtmDatum & "#, '" & strIp & "', '" & strKlient & "', '" & strReferer & "',
'" & strFirstPage & "')"
	objConn.Execute(SQL)
	end if
	objConn.Close
	Set objConn = Nothing
	Application("intActive_users") = Application("intActive_users") + 1

End Sub

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

Sub Application_OnStart
	Application("intActive_users") = 0
	Application("DBstr") = "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" &
Server.Mappath("stats.mdb") & ";"
End Sub

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

## #2 — Vide, 2001-08-10T08:52Z

Du verkar inte få med Application("DBstr"), testa lägga in den lokalt och se om det fungerar.

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

## #3 — pellsäter, 2001-08-10T08:56Z

Menar du att jag istället för att bara skriva in "DBstr" ska skriva in hela sökvägen i objConn.Open Application

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

## #4 — pellsäter, 2001-08-10T09:02Z

Det konstiga är att jag inte gjort nåt med denna filen på ett par månader och allt har funkat perfekt

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

## #5 — PatrikB, 2001-08-10T13:04Z

Det Vide menar (tror jag) är att du aldrig tilldelar variabeln: Application("DBstr")
 ett värde.

Själv skulle jag lägga detta i Sub Application_OnStart

```
Sub Application_OnStart
Application("DBstr") = "min-dsn"
End Sub
```

gör även en koll innan den används om det finns ngt i den. Finns det inget, tilldela den din dsn-sträng.

cya,
PatrikB

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

## #6 — Vide, 2001-08-10T13:40Z

Nja, den finns ju, och sätts igång i Application_OnStart... Men jag tänkte om den inte hade initierats på något konstigt sätt...

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

---

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