Conexion de Bd---------> estoy frito!!

[Tino28]

He probado modificando tus notas bakanzip pero sigo igual, me sale siempre: "hay un problema con la pagina, y no puede ser mostrada"

<%
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "login.asp"
Else
Dim usuario, password, oConn, RS
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("miDNS ")
SQL="SELECT USER,PASSWORD FROM USUARIO WHERE USER='"& REQUEST("USER") &"' AND PASSWORD='"& REQUEST("PASSWORD") &"'"
SET RS=OCONN.EXECUTE(SQL)
RS.Open sql, oConn, 1, 1
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe</BR>"
ElseIf RS.Fields("password") = password then
Response.Redirect "area_protegida.asp"
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>