Recuperar Login y Password

JoeMx · #1 (**permalink**) 21/12/2005, 17:22

Que tal amigos de esta comunidad, bueno sé que a lo mejor mas de uno me mandara a las FAQ, pero creanme que de verdad he indagado e indagado acerca de lo que voy a preguntar, pero no he conseguido respuesta alguna a lo que realmente necesito. Alguien lo pregunto esto mismo hace algun tiempo, pero no le dieron respuesta, por eso lo posteo por aqui.
Bueno resulta ser que estoy haciendo un formulario el cual tiene una casilla de email para colocar el mismo, si algun usuario no recuerda la contraseña.
en otro documento llamado recuperacionClave.asp tengo lo siguiente:

'---------recuperarClave.asp---------------------'

<%@LANGUAGE="VBSCRIPT"%>

<%
email=request("email")

Set rs_usuarios = Server.CreateObject("ADODB.Recordset")
rs_usuarios.ActiveConnection = MM_loarabe_dsn_STRING
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = "&email&""
rs_usuarios.Open rs_usuarios.Source, MM_loarabe_dsn_STRING ' Linea donde me marca el error '
nick=rs_usuarios("nick")
password=rs_usuarios("password")
rs_usuarios.close
MM_loarabe_dsn_STRING.close
%>
' --------------------------------------------------- '

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>:::Recuperar Password:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>

<body>
</body>
</html>
' ------------------Envio de las claves--------------------------------- '
<% Set Mail = Server.CreateObject("SoftArtisans.SMTPMail")
Mail.FromName = "loarabe.com"
Mail.FromAddress= "[email protected]"
Mail.RemoteHost = "mail.loarabe.com"
Mail.AddRecipient "nombre del destinatario", "" & request.form("email") & ""
Mail.AddBCC "" & nombre_destinatario_2 & "", "" & email_destinatario_2 & ""
Mail.Subject = "Recuperacion de contraseña"
Mail.contenttype = "text/html"
Mail.BodyText = "Tu Nick es "& rs_usuario("nick") & ""
if Mail.SendMail then
%>
<% response.redirect "conf_Recu_password.asp" %>
<% else %>
<div align="center" class="nota">El Envío Falló, Por Favor Intenta de Nuevo</div>
<% end if %>
' ---------------------Final del Envio------------------------------ '

Bueno lo cierto del caso es que esto me da un error:
Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'email = [email protected]'.

/recuperarClave.asp, line 9

La linea 9 es la que esta marcada en rojo en el codigo, la verdad no sé que puede ser, por favor necesito que alguien pueda darme una mano

, por lo menos como solvento ete error, o alguna pista para acomodarlo,de verdad gracias de antemano.

SALUDOS!!!!!

ElAprendiz · #2 (**permalink**) 21/12/2005, 19:16

creo que te faltaron las comillas

rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = "&email&""

asi:
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = '"&email&"'"

sodalex · #3 (**permalink**) 21/12/2005, 19:49

Que tal si adaptas este:

<% Set rs_usuarios = Server.CreateObject("ADODB.Recordset")
rs_usuarios.ActiveConnection = MM_loarabe_dsn_STRING
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = '" & request.form("email") & "'"
rs_usuarios.Open rs_usuarios.Source, MM_loarabe_dsn_STRING %>

<% if rs_usuarios.eof then %>

Usuario Desconocido!
rs_usuarios.close

<% else %>

<% Set Mail = Server.CreateObject("SoftArtisans.SMTPMail")
Mail.FromName = "loarabe.com"
Mail.FromAddress= "[email protected]"
Mail.RemoteHost = "mail.loarabe.com"
Mail.AddRecipient "nombre del destinatario", "" & request.form("email") & ""
Mail.AddBCC "" & nombre_destinatario_2 & "", "" & email_destinatario_2 & ""
Mail.Subject = "Recuperacion de contraseña"
Mail.contenttype = "text/html"
Mail.BodyText = "Tu Nick es "& rs_usuario("nick") & ""
if Mail.SendMail then %>
<% response.redirect "conf_Recu_password.asp" %>
<% else %>
<div align="center" class="nota">El Envío Falló, Por Favor Intenta de Nuevo</div>
rs_usuarios.close %>

<% end if %>

JoeMx · #4 (**permalink**) 21/12/2005, 19:52

Que tal Aprendiz, muchas gracias por tu ayuda, aunque no he podido resolver aun el problema si pude resolver parte del mismo, resulta que la primera parte del codigo el cual se ejecuta perfectamente es este:
<%
email=request("email")

Set rs_usuarios = Server.CreateObject("ADODB.Recordset")
rs_usuarios.ActiveConnection = MM_loarabe_dsn_STRING
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = '"&email&"'"
rs_usuarios.Open rs_usuarios.Source, rs_usuarios.ActiveConnection
nick=rs_usuarios("nick")
password=rs_usuarios("clave")
rs_usuarios.close
rs_usuarios.ActiveConnection.close
' ------------
%>
'-------------------------------------

Pero ahora me da este error:
Item cannot be found in the collection corresponding to the requested name or ordinal.
/recuperarClave.asp, line 36
En la linea 36 tengo esto:
Mail.BodyText = "Tu Nick es "& rs_usuarios("nick") & ""

Alguna sugerencia o ayuda?

Muchas Gracias de antemano

sodalex · #5 (**permalink**) 21/12/2005, 20:00

Item cannot be found in the collection corresponding to the requested name or ordinal

Esto me suena a que estás llamando un campo que no existe en la tabla que consultas, o seguramente escribiste mal el nombre del campo. Verifica si

"& rs_usuarios("nick") & "

realmente es como se llama en la tabla de la base de datos.

JoeMx · #6 (**permalink**) 21/12/2005, 20:49

Bueno gente de verdad les estoy muy agradecido por toda la colaboracion prestada, especialmente al amigo Sodalex, el cual me aporto bastantes ideas para realizar este sistema.
He podido realizarlo, y ya perfectamente esta en funcionamiento, aqui les dejo el codigo que hace posible que desde un formulario donde se coloca un email, se puedan enviar las claves de acceso a dicha dirección:

<%@LANGUAGE="VBSCRIPT"%>

<%
'---------Recogo el email-------
email=request("email")

' -----Consulta a la BD-------
Set rs_usuarios = Server.CreateObject("ADODB.Recordset")
rs_usuarios.ActiveConnection = MM_loarabe_dsn_STRING
rs_usuarios.Source = "SELECT * FROM usuarios WHERE email = '"&email&"'"
rs_usuarios.Open rs_usuarios.Source, rs_usuarios.ActiveConnection
nick=rs_usuarios("nick")
clave=rs_usuarios("clave")
%>
' -----Final de la consulta-------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>:::Recuperar Password:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>

<body>
</body>
</html>
'--------------Envio del Email-------------------------------------------
<% Set Mail = Server.CreateObject("SoftArtisans.SMTPMail")
Mail.FromName = "loarabe.com"
Mail.FromAddress= "[email protected]"
Mail.RemoteHost = "mail.loarabe.com"
Mail.AddRecipient "", "" & request.form("email") & ""
Mail.AddBCC "" & nombre_destinatario_2 & "", "" & email_destinatario_2 & ""
Mail.Subject = "Recuperación de Password"
Mail.contenttype = "text/html"
Mail.BodyText = "Te Recordamos tu datos de Acceso para ingresar a nuestro sistema: <br> Tu Nick es: "& rs_usuarios("nick") & " <br> Tu Clave: "& rs_usuarios("clave") &""
if Mail.SendMail then
%>
<% response.redirect "conf_Recu_password.asp" %>
<% else %>
<div align="center" class="nota">El Envío Falló, Por Favor Intenta de Nuevo</div>
<% end if %>
'-----------------Final del Envio----------------------------------------
<% rs_usuarios.close
rs_usuarios.ActiveConnection.close
%>

'-------------------------------
Muchas Gracias por sus aportes....

Feliz Navidad!!!

dafm · #7 (**permalink**) 18/12/2007, 10:00

HOLA AMIGOS... WENO VI EL CODIGO SOBRE EL ENVIO DE LA CLAVE AL EMAIL PERO ESTOY EMPEZANDO EN ESTO DE ASP TODAVIA Y KISIERA SABER EN DOND ESTA EL NOMBRE DE LA BD? ...

JEJEJE XFAVOR SI ALGUNO ME PUDIERA DAR RESPUESTA Y ACLARAR UN POKITO MAS LE AGRADECERIA MUCHO...
GRACIAS............

dafm · #8 (**permalink**) 18/12/2007, 10:36

Tbm Quisiera Saber En Q Parte Se Declara El Rs_usuario.........
En Q Parte Es Dond Va El Nombre De La Bd :d Help Me Please!