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:
Cita: <%
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