<body>
<!-- #INCLUDE FILE="ADOVBS.inc" -->
<%
'PARA LOS REDIRECCIONAMIENTOS
IF Request.Form <> "" THEN
Response.Buffer=true
dim correcto
correcto=true
' Recogemos los datos del formulario
nick=trim(request.Form("id"))
clau=trim(request.Form("pwd"))
' trim sirve para quitar espacios a ambos lados.
'creamos los objetos conection y recordset.
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
'abrimos la conexión
Ob_Conn.Open "zoo"
Ob_RS.Open "profesionales", Ob_Conn, adOpenStatic, adCmdTable
'tabla es profesionales
sql="select id,nom,especialitat,contraseña from profesionales where(id='"&nick&"' and contraseña='"&clau&"');"
set Ob_RS=Ob_Conn.Execute(sql)
if not Ob_RS.EOF then
dim nom
dim ape
session("nom")=trim(Ob_RS("nom"))
session("ape")=trim(Ob_RS("cognom"))
IF Ob_RS("especialitat")="veterinario" then
Response.Redirect("veterinario.asp")
else
response.Redirect("cuidador.html")
end if
ELSE
response.Write("<h2>"&"EL USUARIO NO EXISTE"&"</h2>")
response.Write("</br>")
response.Write("<a href="&"ingresar.asp"&">"&"+REGISTRATE+"&"</a>")
END IF
ELSE
%>
<form action="login.asp" method="post">
Id: <input type="text" value="<%=id%>" name="id" />
<br />
Password
<input type="password" value="<%=pwd%>" name="pwd" />
<br />
<input type="submit" value="enviar" />
</form>
<%END IF%>
</body>
</html>