problema con usuario y password
hola tengo el siguiente código
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 código es:
<%
usuario = Request.form("usuario")
password = Request.form("password")
%>
<%
'Conexión 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 página 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 página 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 agradecería me ayudaráis
Muchas gracias y un saludo
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 código es:
<%
usuario = Request.form("usuario")
password = Request.form("password")
%>
<%
'Conexión 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 página 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 página 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 agradecería me ayudaráis
Muchas gracias y un saludo
Hola, no entiendo que es lo que realizar con esta línea :
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 demás 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ú
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 demás 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ú