<% IF request.form("forgotaction")="emailpassword" THEN %><% Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open "SELECT * FROM members_details WHERE username='" & request.form("username") & "' and firstname='" & request.form("firstname") & "' and email='" & request.form("emailaddress") & "'", gbConn,1,3 IF rs.recordcount=0 THEN response.write("Sorry, there are no members found matching that criteria") ELSE response.write("Your password has been sent to the email address specified in your account details.") Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "inquiries@promosrus.com.au" objMail.To = rs.fields(2) objMail.Subject = "Promos R Us - Member Password Request" msgBody = "Hello " & rs.fields(4) & "," & chr(10) & chr(10) & "Your password for your account is [" & rs.fields(2) & "]." & chr(10) & chr(10) & "Kind Regards," & chr(10) & "The team at Promos R Us." objMail.Body = msgBody objMail.Send Set objMail = nothing END IF rs.close gbconn.close ELSE %>

Forgot your password?


 Please enter the following informtation and your password will be emailed to the email address you provided when you registered.

 

Please enter your username:
Please enter your first name:
Please enter the email address you provided when you registered:

 

 

If you can't remember the information we are requesting, unfortunately we are unable to provide you with a password via our web site due to security reasons. Please call 1800-667770 and we will assist you with a new password

<% END IF %>