Database kontakt

jeg har laget en login side men får ikke kontakt med databasen via dsnless connection. Hva skal jeg gjøre?

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

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

%> <%
set conntemp=server.createObject(\"adodb.connection\")

\' DSNless connection to Access Database
DSNtemp=\"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSNtemp=dsntemp & \"DBQ=\" & server.mappath(\"\\test\\_db\\access.mdb\")
conntemp.Open DSNtemp
\' DSNless connection to Access Database


sql = \"SELECT un, pw  FROM users\"
set recordset = conntemp.Execute(sql)



%>
<% If conntemp__strUserID <> \"x\" Then
If Not conntemp.EOF Then
Session(\"svUser\")=conntemp.Fields.Item(\"un\").Value
Session(\"svPass\")=conntemp.Fields.Item(\"pw\").Value
Session(\"AccGrp\")=conntemp.Fields.Item(\"al\").Value
Response.Redirect \"loginok.asp\"
else
Response.Redirect \"loginfailed.asp\"
End If
End If
conntemp.Close
Set conntemp = Nothing