Error de Password

[JuanRAPerez]

sabes (desde mi punto de vista) cuando usas <script Language="VbScript"> aveces da lios con las cosas que estas haciendo yo me dedique mejor a usar redirect (ademas creo que algunos navegadores no lo interpretaran)

Código asp:

<%
Usuario = Request.Form("usuario")
ClaveUsuario = Request.Form("password")
 
sql = "SELECT usuario, password, permiso FROM usuarios WHERE usuario= '"& Usuario &"'and password='"& ClaveUsuario &"';"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
if rs.eof othen
    'No existe usuario
    'podrias crear un CSS para poder enviar los errores de una forma iconografia o bonita al navegador
    response.write "<h1>¡El usuario no existe y/o Usuario o password incorrectos!<h1>"
else
    TipoPermiso = CStr(rs.fields("permiso"))
    'pongamos todo en minuscula no sea eso tambien este fallando
    TipoPermiso = lCase(TipoPermiso)
    if TipoPermiso = "administrador" then
        response.write "es administrador"
        'una vez validado en lugar de imprimir mandamos a la pagina que es correcta
        'response.redirect("administrador.asp")
    else
        response.write "es usuario"
        'response.redirect("reservacion.asp")
    end if
end if
rs.close
%>
 

suerte