webForumDet fria alternativet

Global.asa

5 svar · 223 visningar · startad av pellsäter

pellsäterMedlem sedan aug. 2000526 inlägg
#1

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

VideMedlem sedan dec. 19998 577 inlägg
#2

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

------------------
Vide rox = new Vide();
rox.learn("C#");

webeye.nu

pellsäterMedlem sedan aug. 2000526 inlägg
#3

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

pellsäterMedlem sedan aug. 2000526 inlägg
#4

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

PatrikBMedlem sedan mars 20002 836 inlägg
#5

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

------------------
*så kan det gå när inte haspen är på*

VideMedlem sedan dec. 19998 577 inlägg
#6

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...

------------------
Vide rox = new Vide();
rox.learn("C#");

webeye.nu

121 ms totalt · 3 externa anrop · v20260731065814-full.86db40fa
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
119 ms — hämta tråd, inlägg och bilagor (db)