Muy facil:
recupera.html
Introduce tu emial para recuperar tu password
<form method="POST" action="email.asp">
<input type="text" name="email" size="20">
<input type="submit" value="Enviar" name="B1">
<input type="reset" value="Restablecer" name="B2">
</form>
email.asp
<%
'recuperamos el email del formulario
email=request("email")
' ---------------------- inicio del bloque consulta a la base de datos
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"
SQL="SELECT * FROM tutabla where email="&email&" "
rs.Open SQL, oConn
password=rs("password")
rs.close
oConn.close
' ---------------------- fin del bloque consulta a la base de datos
' ---------------------- inicio del bloque del email
'Enviamos el password con ASPEMAIL, si necesitas otro componente como CDONTS solo debes cambiar una pocas lineas.
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.smtp-server.com" ' servidor SMTP de tu dominio
Mail.From = "
[email protected]" ' Direccion del que envia
Mail.FromName = "Departamento de ventas" ' nombre del que envia
Mail.AddAddress "
[email protected]" 'direccion del destinatario, tambien puede ser una variable
Mail.AddReplyTo "
[email protected]"
Mail.AddAttachment "c:imagescakes.gif"
Mail.Subject = "Recuperacion de password"
Mail.Body = "Aqui tienes tu password, despistado" & password
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Se ha encontrado un error: " & Err.Description
End If
' ---------------------- fin del bloque del email
%>