09/07/2002, 04:33
|
 | | | Fecha de Ingreso: abril-2002 Ubicación: Málaga
Mensajes: 1.475
Antigüedad: 23 años Puntos: 9 | |
| Re: Http 550 Error Interno Del Servidor
continuo aqui, amigo........
he creado una página index.asp con un formulario tal como muestro a continuación...
<html>
<head>
<title>index.asp</title>
</head>
<body>
<%
' Si no recibimos nada enviado de un formulario.
IF request.form="" THEN
%>
<form action="index.asp" method="post">
<input type="text" name="login" size="20">
<br>
<input type="password" name="password" size="20">
<br>
<input type="submit" value="Login">
</form>
<%
ELSE
'Introducimos los valores en variables de tipo Session para
'hacer comprobaciones en futuras páginas.
Session("login")=request.form("logi n")
Session("password")=request.form("p assword")
'Creamos objeto conexion
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.open "EjerXP"
'Buscamos si en la Tabla de la BD si hay un usuario con ese Login y Password
SQL="SELECT * FROM Tabla WHERE CampoLogin='" & Session("login") & "' AND CampoPassword='" & Session("password") & "'"
Set RS=dbConn.execute(SQL)
'Si el recordset es vacio quiere decir que no hay usuarios.
IF RS.eof THEN
'Por lo tanto le redireccionamos a la página de inicio para
'que lo vuelva a intentar
response.redirect "http://www.misitio.com/pagina_de_error.htm"
response.buffer=True
response.clear
ELSE
'Si el recordset tiene valor es de suponer que ha encontrado el usuario y
'le dejamos pasar.
response.redirect "http://www.misitio.com/pagina_protegida.htm"
response.buffer=True
response.clear
END IF
END IF
%>
</body>
</html>
'CONTINUO ABAJO |