alguien sabe donde esta el error?

[copine13]

Hola Amigos!
Llevo dias con este tema.Resulta no consigo autenfiticar un usuario de la base de datos.
Cada vez que introduzco un usuario que existe en la base de datos,siempre me sale el mensaje "este usuario no existe"
Aqui os pongo el codigo.

Gracias a todos

<%
Dim usuario, password
set conexion = Server.Createobject("adodb.connection")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("amigos.mdb")
conexion.open strconn
If Request.Form("logina") = "" OR Request.Form("contraseña") = "" then
Response.Redirect "user.htm"
Else

usuario = Trim(Request.Form("logina"))
password = Trim(Request.Form("contraseña"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
autorizacion= true
sql= "select * from personass where nomAmigo='"&request.form("logina") &"'"

set RS= conexion.execute(sql)
If (RS.EOF = true) then

Response.Write "Ese usuario no existe"
ElseIf RS.Fields("contraseña") = password then

Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If


RS.Close

Set RS = Nothing

End If
%>