<%
if Request.QueryString("mode") = "doit" then
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
mssg = "Ha recivido este mail en respuesta a su pedido por no recordar su password" & "
"
mssg = mssg & " para superMarket[www.i2off.org]." & vbCrLf & vbCrLf & "
"
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = request.form("email")
objCDO.From = ForoMail
objCDO.Subject = "::superMarket::[www.i2off.org]+::Password"
strSql = "Select M_name, M_Password, M_Email from members where M_Name = '"
strSql = strSql & Request.Form("Name") & "' and M_Email ='"
strSql = strSql & Request.Form("email") & "'"
set rs = my_conn.Execute (StrSql)
if rs.EOF or rs.BOF then
mssg = mssg & " Lamentablemente sus datos enviados no corresponden con ningun registro." & vbCrLf & vbCrLf & "
"
mssg = mssg & " Por favor registrece nuevamente" & vbCrLf & "
" & "
"
Else
mssg = mssg & " Su password es :- " & rs("M_Password") & vbCrLf & "
" & "
"
End if
mssg = mssg & "ivan ivanoff" & "
"
mssg = mssg & "flash avatar" & "
"
mssg = mssg & "rector de superMarket" & "
"
mssg = mssg & "http://www.i2off.org" & "
"
mssg = mssg & "http://www.i2off.org/superMarket" & "
"
mssg = mssg & " ++ la comunidad para que desarrolles" & "
"
mssg = mssg & " ++ tus proyectos experimentales" & "
"
mssg = mssg & "
"
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Body = mssg
on error resume next ' Ignore Errors
objCDO.Send
set objCDO = nothing
on error resume next
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
Reenvio
de password
Usted
debe recibir un email en cualquier momento!
<%
Else
%>
Reenvio
de password