<% if request.form("forgot") = "yes" then Dim CheckSQL, RSCheck CheckSQL = "SELECT * FROM Forces_Registrants WHERE Email = '"&killChars(request.form("email"))&"' AND Deleted = 'no' " Set RSCheck = MyConn.Execute(CheckSQL) If not RSCheck.EOF Then BodyText = "Dear "&RSCheck("FirstName")&"

" BodyText = BodyText&"You have requested for the login details to your forcesnoticeboards.com account to be sent to you. They are the following:

" BodyText = BodyText&" Username: "&RSCheck("Username")&"
" BodyText = BodyText&" Password: "&RSCheck("Password")&"
" Dim MyMail Set MyMail = Server.CreateObject("CDONTS.NewMail") MyMail.From = "customerservices@forcesnoticeboards.com" MyMail.To = RSCheck("Email") MyMail.Subject = "Forcesnoticeboards.com - Login Details Reminder" MyMail.Body = BodyText MyMail.BodyFormat = 0 MyMail.MailFormat = 0 MyMail.Send Set MyMail = Nothing response.redirect "forgotpassword.asp?done=yes" ELSE response.redirect "forgotpassword.asp?done=no" end if end if %>

LOGIN

FORGOTTEN PASSWORD

<%if request("done")="yes" then%>

Thank You! Your account login details have been submitted!

<%elseif request("done")="no" then%>

The email address you provided does not exist in our registrants database.

<%end if%>

Login Detail Retrieval

Please enter your email address. Once verified, your login details will be sent to the account holder's email address.