<html>
<head>
<title></title>
<style type="text/css">
<!--
.style1 {
color: #000066;
font-weight: bold;
font-family: Cambria;
font-size: 24px;
}
-->
</style>
</head>
<!--#include Virtual ="Reservaciones\connsql.asp"-->
<body topmargin="0" leftmargin="0">
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center" class="style1"><big>Autentificando ...</big></p>
<%
Usuario = Request.Form("usuario")
ClaveUsuario = Request.Form("password")
%>
<%
sql0 = "SELECT * FROM usuarios WHERE usuario= '"& usuario &"';"
Set rs0 = Server.CreateObject("ADODB.Recordset")
rs0.Open sql0, conn, 3, 3
if rs0.EOF then
Response.Write "<p align='center'><strong><font color='#000066'>ERROR..... No registrado</font></strong></p>"
%>
<script Language="VbScript">
Usuario = <% =Usuario %>
msgbox usuario & " ¡Usuario no registrado!", vbCritical
a = window.open("usuarios1.asp?NumError=1&QueUsuario=" & Usuario, "_self")
</script>
<%
else
if rs0.fields("password") = ClaveUsuario then
' if rs0.fields("password") <> password then
Response.Write "<p align = 'center'><strong><font color='#000066'>ERROR de Password</strong></font></p>"
%>
<script Language="VbScript">
usuario = <% =usuario %>
msgbox "¡Contraseña Incorrecta!", vbCritical
a = window.open("usuarios1.asp?NumError=2&QueUsuario=" & usuario, "_self")
</script>
<%
else
usuario = rs0.fields("usuario")
contrasena = rs0.fields("password")
sqlc = "SELECT permiso FROM usuarios WHERE usuario= '"& usuario &"';"
Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.Open sqlc, conn, 3, 3
if rsc.fields("permiso") = "administrador" then
%>
<script Language="VbScript">
usuario = "<% =usuario %>"
passw = "<% =contrasena %>"
<% rs0.Close %>
ventana = window.open("consultas.asp?usuario=" & usuario, "_self")
</script>
<% else
%>
<script Language="VbScript">
usuario = "<% =usuario %>"
passw = "<% =contrasena %>"
<% rs0.Close %>
ventana = window.open("reservacion.asp?usuario=" & usuario, "_self")
</script>
%>
<%
end if
end if
end if
%>
</body>
</html>