formulario para reenviar datos por email. Olvido su contrazena?

[gymanual]

Hola tiene alguien algun formulario para reenviar datos a al email?

Por ejemplo en el caso de que alguien olvido en password.
Les agradezco mucho.
Saludos

[Owen-Bonilla]

Bueno, una cosa es el formulario para recuperar la contraseña y otra cosa es el envio de la misma por Email.

Me imagino que ya debes tener tu formulario. Sí no es asi, has uno, donde el primer dato que el pidas sea su nombre de usuario ( por ej forma.asp ).

Despues creas otra página, donde se valide sí el usuario existe en la BD ( por ej validar.asp ).
Sí No existe, mandarle un mensaje que se lo indique, sí existe que ejecute el código para enviar el email.

Seria algo como esto:

<%
Dim oConn1, rs1, SQL1, usuario

usuario=replace(Trim(request.form("usuario")),"'", "")

set oConn1=Server.CreateObject("ADODB.Connection")
oConn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/Tu_BD.mdb") & "; Password=tu_pass "
SQL1="SELECT * FROM " & _
"TU_TABLA WHERE (usuario='"&usuario&"');"
set rs1=oConn1.Execute(SQL1)

if rs1.EOF then
Response.Write " El nombre de Usuario no existe, compruebelo de nuevo"
else

PASSWORD=rs1("PASSWORD")
EMAIL=rs1("mail")

<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.MailFormat=0
ObjMail.BodyFormat=0

objMail.From = "Mi Empresa punto Com<[email protected]>"
objMail.Subject = "Envio de password"
objMail.To = '"&EMAIL&"'
objMail.Value("Reply-To")="A_Quien_Contestar<[email protected]>"
objMail.Body = "Su Contraseña es: "&PASSWORD&""

objMail.Send 'Enviamos el mensaje
set objMail = nothing 'Cerramos el componente

End if
%>

Espero te sirva de algo este código

Saludos

[yakare84]

Owen-Bonilla tengo una consulta sobre la linea q empieza con

oConn1.Open

esa línea terminar con un password = tu_pass
ese es el dato a enviar, el que no conocemos...que hay que poner? el nombre de la columna en la base de datos?

Muchas gracias por el resto del codigo, es muy bueno y muy simple de entender!

espero tener eso para poder ver si lo hago andar o no! ;)

Saludos!!!

GRACIAS!