DSNless2

Prøv dette
Set connection1 = Server.CreateObject(\"ADODB.Connection\")
connection1.Open =\"Driver={Microsoft Access Driver (*.mdb)}; Dbq =\" & Server.MapPath(\"\\test\\_db\\access.mdb\")

...kode
f.eks -
sql = \"SELECT un, pw  FROM users\"
        set recordset = connection1.Execute(sql)
        osv.


connection1.Close
Set connection1 = Nothing

Se også http://www.activeserverpages.dk/aspdigital/kapitel2/dsnless.asp

Takk for svaret desverre har ikke feilmeldingen endret seg, her er hele koden kanskje problemet ligger andre plasser?

<%@LANGUAGE=\"VBSCRIPT\"%> <%

Dim connection1__strUserID
connection1__strUserID = \"x\"
if(Request.Form(\"UserID\") <> \"\") then connection1__strUserID = Request.Form(\"UserID\")

Dim connection1__strPassword
connection1__strPassword = \"1\"
if(Request.Form(\"Password\") <> \"\") then connection1__strPassword = Request.Form(\"Password\")

%> <%
set connection1 = Server.CreateObject(\"ADODB.Connection\")
connection1.open =\"Driver={Microsoft Access Driver (*.mdb)}; Dbq =\" & Server.MapPath(\"\\test\\_db\\access.mdb\")

sql = \"SELECT un, pw  FROM users\"
set recordset = connection1.Execute(sql)
       
connection1.CursorType = 0
connection1.CursorLocation = 2
connection1.LockType = 3
connection1.Open
connection1_numRows = 0
%>
<% If connection1__strUserID <> \"x\" Then
If Not connection1.EOF Then
Session(\"svUser\")=connection1.Fields.Item(\"un\").Value
Session(\"svPass\")=connection1.Fields.Item(\"pw\").Value
Session(\"AccGrp\")=connection1.Fields.Item(\"al\").Value
Response.Redirect \"loginok.asp\"
else
Response.Redirect \"loginfailed.asp\"
End If
End If
connection1.Close
Set connection1 = Nothing


%>

Forbindelsen (Connection1) jeg refererer til i koden er prøvd satt opp i Dreamweaver Ultradev. Jeg har ikke fått den til å virke i Dreamweaver. Kan det være årsaken.

Prøv bare at skrive (\"access.mdb\") istedet for
(\"\\test\\_db\\access.mdb\") i den sti

Jeg gjorde som du sa men feilmeldingen kommer fortsatt.