problema con usuario y password

castillejo
24 de Marzo del 2003
hola tengo el siguiente cdigo

usuarios.htm
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD><TITLE>Acceso de usuarios</TITLE>
</HEAD>
<BODY BGCOLOR="#CCFFCC">
<p align=center><font color="#FF66FF" face="Normal">introduzca su nombre de <b>usuario</b>
y su <b>password</b></font></p>

<form action="admin.asp" method="post">
<div align="left">
<table width="40%" border="0" align="center">
<tr>
<td>
<div align="center"><img src="images/h30.gif" width="98" height="98"><img src="images/h552.gif" width="98" height="98"><img src="images/h156.gif" width="98" height="98"><img src="images/h550.gif" width="98" height="98"></div>
</td>
</tr>
</table>
</div>
<p><center>
<table border="0" cellpadding="10" cellspacing="0" align="center" width="40%">
<tr>
<td width="40%">
<div align="right"><font color="#FF66FF"><b>usuario</b></font></div>
</td>
<td width="50%">
<div align="left">
<input type="text" name="usuario">
</div>
</td>
</tr>
<tr>
<td width="40%">
<div align="right"><font color="#FF66FF"><b>password</b></font></div>
</td>
<td width="50%">
<div align="left">
<input type="password" name="password">
</div>
</td>
</tr>
</table>
</center>
<p><center>
<table align="center">
<tr>
<td>
<input type="submit" name="enviar" value="enviar">
</td>
</tr>
</table>
<img src="images/hidemarpeque.gif" width="300" height="34" align="middle">
</center>
</form>
</BODY></HTML>

es un formulario en html que apunto a admin.asp y su cdigo es:
<%
usuario = Request.form("usuario")
password = Request.form("password")
%>

<%
'Conexin con la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Set admin = Server.CreateObject("ADODB.Recordset")
Conn.Open "elinfante-toysoldier.com.hi"
%>
<%
'Consulta
consultaSQL = "SELECT * FROM tabla WHERE usuario='"& usuario &"'AND password='"& password &"'"

admin.Open consultaSQL, Conn
%>
<%
'Si no existe el usuario redirecciona a la pgina de acceso
if admin.eof then
admin.Close
Conn.Close
Response.Redirect "http://www.elinfante-toysoldier.com/hidemar/usuarios.htm"
else
Response.Write "Usuario y password correctos !!!!!!"
end if
%>

el problema est en que no me conecta una pgina con la otra y me da el error HTTP500, error interno del servidor.
El caso es que no s donde puede estar el fallo, creo que en la base de datos no porque son solamente dos campos y en la dsn tampoco, no s...
Por favor os agradecera me ayudaris
Muchas gracias y un saludo

Santos Pairazam?
24 de Marzo del 2003
Hola, no entiendo que es lo que realizar con esta lnea :
Conn.Open "elinfante-toysoldier.com.hi"
Trata de cambiar esto.
usuario = trim(Request.form("usuario") )
password = trim(Request.form("password") )
Pare quitarle lo espacios en blanco a ambos lados.

por lo dems veo que esta bien.

en cuanto a esto

Response.Redirect "http://www.elinfante-toysoldier.com/hidemar/usuarios.htm";

si estas en el mismo directorio realiza esto que es suficiente.
Response.Redirect("usuarios.htm")

en todo caso revisa los permisos sobre el directorio.

Hasta Pronto
Lima -Per

castillejo
24 de Marzo del 2003
gracias Lima-Per, maana te cuento si funciona