<% Response.Buffer = True Dim strRedirectFalse : strRedirectFalse = "password_reminder_popup.asp?Status=False" Dim strRedirectTrue : strRedirectTrue = "password_reminder_popup.asp?Status=Sent" If Application("JBSX_sSettings_EmailIsEnable") = "False" Then Response.Redirect(strRedirectFalse) End If If Request("Email") = "" Then Response.Redirect(strRedirectFalse) End If strSQL = "SELECT uEmail, uPassword, uFullName FROM JBS_Users WHERE uEmail = '" & Request("Email") & "' " Set objRS = Conn.Execute(strSQL) If Not objRS.EOF Then Dim uEmail : uEmail = objRS("uEmail") Dim uPassword : uPassword = objRS("uPassword") Dim uFullName : uFullName = objRS("uFullName") Dim strSubject : strSubject = "Password Reminder <" & Application("JBSX_sSettings_SiteName") & ">" Dim strBody strBody = strBody & "" strBody = strBody & "Hi " & uFullname & "

" strBody = strBody & "As you requested, here is your Password." strBody = strBody & "

Password :" & uPassword & "

" strBody = strBody & "Best Regards

" strBody = strBody & Application("JBSX_sSettings_EmailSenderName") & "
" strBody = strBody & "" & Application("JBSX_sSettings_SiteName") & "" strBody = strBody & "" IF Application("JBSX_sSettings_EmailComponent") = "CDONTS" THEN Set mailObj = Server.CreateObject("CDONTS.NewMail") mailObj.From = Application("JBSX_sSettings_EmailSenderAddress") mailObj.To = uEmail mailObj.Subject = strSubject mailObj.Body = strBody mailObj.BodyFormat = 0 'mailObj.MailFormat = 0 mailObj.Send ELSEIF Application("JBSX_sSettings_EmailComponent") = "ASPMail" THEN Set mailObj = Server.CreateObject("SMTPsvg.Mailer") mailObj.ContentType = "text/html" mailObj.FromName = Application("JBSX_sSettings_EmailSenderName") mailObj.FromAddress= Application("JBSX_sSettings_EmailSenderAddress") mailObj.RemoteHost = Application("JBSX_sSettings_EmailRemoteHost") mailObj.Subject = strSubject mailObj.BodyText = strBody mailObj.AddRecipient uFullName, uEmail mailObj.SendMail ELSEIF Application("JBSX_sSettings_EmailComponent") = "ASPEmail" THEN Set mailObj = Server.CreateObject("Persits.MailSender") mailObj.Host = Application("JBSX_sSettings_EmailRemoteHost") mailObj.From = Application("JBSX_sSettings_EmailSenderAddress") mailObj.FromName = Application("JBSX_sSettings_EmailSenderName") mailObj.AddAddress uFullName, uEmail mailObj.Subject = strSubject mailObj.Body = strBody mailObj.IsHTML = True mailObj.Send END IF Session("JBSX_ToAddress") = uEmail Response.Redirect(strRedirectTrue) else Session("JBSX_strMessage") = "" & Application(getLang() & "_strJBS_00250") & "!" Response.Redirect(strRedirectFalse) end if objRS.Close : Set objRS = Nothing Conn.Close : Set Conn = Nothing %>