[KUB]

Tjena
Någon som har tips på var man kan fördjupa sig lite om följande felmeddelande?

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] '(unknown)' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.


//Kaj

Edit: sidan ligger hos Loopia.

[digiArt]

Du har antagligen en felaktig sökväg till databasen

[KUB]

testat med allt, men vet inte riktigt hur sökvägen till databasen ska skrivas.

Så här ser det ut nu:


<%
' VARIABLER
'*****************************
'
' Skriv in namnet till den DSN som gäller för databasen
dsn="Driver={Microsoft Access Driver (*.mdb)};" & _

"Dbq=db/db.mdb;"

%>


I denna filen säger felmeddelandet att det är fel i rad 8:


<!--#include file="dsn.inc"-->
<%
' Ändra inget under linjen
'*****************************
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn
SQL = "SELECT * FROM settings"
rs.Open SQL, Conn

klubb=rs("företagsnamn")
url=rs("url")
foretagsmail=rs("mail")
bildarkiv=rs("bildarkiv")
antal_dygn=rs("antal_dygn")
sitetyp=rs("Sitetyp")
standardlokal=rs("hemmahall")
%>

[Netikett]

Använd denna lösning och lägg databasen utanför rooten.

Set Connection = Server.CreateObject("ADODB.Connection") ' Öppna databasen
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/access.mdb")

Set RS = Connection.Execute("SELECT * FROM Settings")

if RS.eof then
response.write "Fel!"
else
response.write ""& RS("företagsnamn") &"
"
end if

Rs.Close
Connection.Close : Set Connection = Nothing


Bara att prova sig fram.

[KUB]

Underbart, nu funkar det klockrent

[Netikett]

Meningen är att det ska fungera. :-)