Datakildenavnet blev ikke fundet

Hvad indeholder denne:
Session("ConnectionStringEngros")

<%response.buffer=true%>
<% adato = DateSerial(year(now),month(now),day(now))

if session("user") = "" then
response.redirect "login.asp"
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("ConnectionStringEngros")

SQL = "SELECT * FROM varer WHERE Nyhed = 'Ja'"
Set forsidetilbud = Conn.Execute(SQL)
%>

Er det det du mener?

Niks. !
Du forsøger at udføre denne kommando:
Conn.Open Session("ConnectionStringEngros")
men får fejl fordi at Session("ConnectionStringEngros") er blank. !
Den skal indeholde noget i denne stil:
"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databasenavn.mdb")

virker ikke!

Det er her til den referere. Den virke - men problemet er at jeg skal bruge den offline på min personal webserver. Det er her problemerne dukker op. Det hele er som nok kan ses en login-del. Forrige kode jeg sendte er fra login.asp, nedenstående fra logintest.asp

<%
kundenr = request.form("kundenr")
password = request.form("password")

if lcase(kundenr) <> "gæst" then

set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("mindatabase.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

set rstjek=server.CreateObject("ADODB.Recordset")
rstjek.open "SELECT * FROM kunder WHERE lcase(kundenr) ='"&lcase(kundenr)&"' AND lcase(password) = '"&lcase(password)&"'",conn,3
if rstjek.recordcount > 0 then

session("user") = kundenr
session("userid") = rstjek("id")

if rstjek("gruppe") <> "" then

if rstjek("gruppe") = "GRUPPE2" then
session("gruppe") = "prisgruppe2"
end if

end if

end if

conn.close

else

session("user") = "gæst"
session("userid") = ""
session("gruppe") = ""
end if

set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("mindatabase.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

set rsstat=server.CreateObject("ADODB.Recordset")
rsstat.open "SELECT * FROM kundestat WHERE lcase(kundenr) ='"&lcase(session("user"))&"'",conn,3
if rsstat.recordcount < 1 then

SQLStmt = "INSERT INTO kundestat (kundenr,antallogin,antalkoeb,samletkoeb) "
SQLStmt = SQLStmt & "VALUES ('" & session("user") & "'"
SQLStmt = SQLStmt & ",'" & 1 & "'"
SQLStmt = SQLStmt & ",'" & 0 & "'"
SQLStmt = SQLStmt & ",'" & 0 & "')"
Set RS = Conn.Execute(SQLStmt)

else
antallogin = rsstat("antallogin") + 1

SQLStmt = "UPDATE kundestat SET antallogin='" & antallogin & "' where kundenr='" & session("user") &"'"
Set RS = Conn.Execute(SQLStmt)

end if

response.redirect "forside.asp"
%>

<% =session("user") %><BR>
<% =session("userid") %><BR>
<% =session("gruppe") %><BR>

Så er det jo denne/disse linier der skal ændres alt efter om siden køre lokalt eller på web-hotel:
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
Jeg anvender en procedure som er forskellige alt efter om den findes lokalt eller på web-hotel.

sub DBConnect
  Set DBConnect = Server.CreateObject("ADODB.Connection")
  ' Anvendes lokalt
  DBConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "d:\localsrv\wwwroot\tilbud\scripts\shop.mdb"
  ' Anvendes på web-hotel
  DBConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("\scripts\shop.mdb") '
end sub