<%
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 el Foro Origenes[Base de Conocimiento]" & vbCrLf & vbCrLf
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = request.form("email")
objCDO.From = ForoMail
objCDO.Subject = "Foro Origenes[Base de Conocimiento]::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 & "Gracias por consultar el Foro Origenes[Base de Conocimiento]"
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
%>
Password Reminder
You should receive an email any moment now!
<%
Else
%>
Password Reminder