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

[Tino28]

formulario:

<form method="POST" action="com.asp">
con todo el html pertinente:

com.asp

<%
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Write "<BR>Introduzca todos los datos</BR>"
Response.Redirect "login.asp"

Else
Dim usuario, password, oConn, RS
'Guardamos los datos del Form en variables.
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "miDSN"
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe</BR>"
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
ElseIf RS.Fields("password") = password then
Response.Redirect "area_protegida.asp"
'Otra cosa, seria cuando el password no es la que seleccionamos.
Else
Response.Redirect "login.asp"
End If
'Limpiamos y cerramos.
oConn.Close
Set oConn = Nothing
End If
%>