Du verkar inte få med Application("DBstr"), testa lägga in den lokalt och se om det fungerar.
Trådstart#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