<% olvidado=Request.Form("Correo") ' Set cn=Server.CreateObject("ADODB.Connection") ' cn.Open "DSN=DatosWebtopia" sql="SELECT * FROM Usuarios WHERE email='" & olvidado & "' AND baja=FALSE" Set rs=cn.Execute(sql) if not rs.eof then Mensaje = "Fecha: " & now()&"
" Mensaje = Mensaje & "IP: " & request.servervariables("REMOTE_ADDR")&"

" Mensaje = Mensaje & "

Apreciable "&rs("nombre")&":

" Mensaje = Mensaje & "

Agradecemos mucho tu ingreso a nuestro sitio Chapultepec México.

" Mensaje = Mensaje & "

Por solicitud tuya, te estamos recordando tu clave de acceso a nuestro sitio:

" Mensaje = Mensaje & "

"&rs("contrasena")&"

" Mensaje = Mensaje & "

En Chapultepec México es un placer contar con tu presencia. ¡Vuelve Pronto!

" Mensaje = Mensaje & "

Recibe un cordial saludo,

" Mensaje = Mensaje & "

Webmaster
http://www.chapultepec.com.mx

" Set myMail = CreateObject("CDO.Message") myMail.Subject = "Recuperación de contraseña" myMail.From = "chapultepec@chapultepec.com.mx" myMail.To = rs("email") ' myMail.To = "cidnava@sacm.org.mx" myMail.Bcc = "chapultepec@chapultepec.com.mx" myMail.HTMLBody = Mensaje myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 myMail.Configuration.Fields.Update myMail.Send Set myMail = Nothing rs.close cn.close Response.Redirect("mi_cuenta.asp") else if olvido<>"" then Response.Write("No existe una cuenta de correo con esta información: "&olvidado&"

") end if end if %> Recuperación de Contraseña
Aplicable solo a usuarios que publican anuncios clasificados