Recuperar password
Hola, necesitaría ayuda ya que programe un sitio con un sistema de registro de usuarios y no se como hacer para poder enviar la contraseña a la cuenta de email del usuario registrado (en los casos de que la hayan olvidado.)
Tengo una base access donde la tabla se llama tb_usuarios y los campos son nombre, pass, email, etc
nombre es el campo clave.
Para envío de datos utilizo Cdont.
No consigo darme cuenta como recuperar y enviar.
Agradecía de su ayuda
Juan Pablo
Tengo una base access donde la tabla se llama tb_usuarios y los campos son nombre, pass, email, etc
nombre es el campo clave.
Para envío de datos utilizo Cdont.
No consigo darme cuenta como recuperar y enviar.
Agradecía de su ayuda
Juan Pablo
1 respuesta
Respuesta de pbarrientos
1
En un formulario pedimos al usuario que olvido la clave que ingrese la dirección de correo con la que se registro, luego vamos a otra página donde tomamos esa dirección, buscamos el registro correcto y enviamos la clave
<%
cMail = Request.Form("txtEmail")
oCon = Server.createobject ("adodb.connection")
oRs = Server.CreateObject("adodb.recordset")
oCon.open(dsn)
cSql = "select pass from tb_usuarios where email='" & cMail & "'"
oRs = oCon.Execute(cSql)
oMail = Server.createobject("cdonts.newmail")
oMail.From = ""
oMail.To = cMail
OMail. Body "La contraseña es: " & oRs("pass")
OMail. Send
%>
<%
cMail = Request.Form("txtEmail")
oCon = Server.createobject ("adodb.connection")
oRs = Server.CreateObject("adodb.recordset")
oCon.open(dsn)
cSql = "select pass from tb_usuarios where email='" & cMail & "'"
oRs = oCon.Execute(cSql)
oMail = Server.createobject("cdonts.newmail")
oMail.From = ""
oMail.To = cMail
OMail. Body "La contraseña es: " & oRs("pass")
OMail. Send
%>
