Guardar datos si password es correcto

[zink]

Hola, estoy haciendo una pagina que recoge informacion capturada y pide una clave para poder guardar esos datos y enviar por mail dicha información, este es el código que tengo:

<%
Dim password, oConn, RS
password = Trim(Request.Form("requiredclave"))
password=replace(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("password.mdb")
sql = "SELECT * FROM dictamina WHERE dependencia='"&password&"'"
RS.Open sql, oConn, 1, 1
If RS.EOF = True then
Response.write ("<script language='javascript'>window.alert ('Clave Incorrecta')</script>")
ElseIf RS.Fields("requiredclave") = password then
'.......

'Hago la conexion ala BD, guardo los datos que recoge del formulario, envia un mail por medio de cdonts, y redirecciono a otra pagina.
'......

Else
Response.write ("<script language='javascript'>window.alert ('Clave Incorrecta')</script>")
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>

Al cargar la pagina siempre me envia el Alert de que la clave es incorrecta, y una vez que lleno el formulario y escribo la clave correcta me devuelve el mismo alert y no guarda los datos.

Alguna sugerencia o cambio en el código?

Gracias.