<%@ LANGUAGE = "VBScript" %> <% '----------------------------------------------------------- ' ASPilot.com - Password Reminder Page ' ------------------------------ ' Copyright © 2004 Spliethof Inc ' ' This file lists all the customer password finder interface PilotInitialize GetCurrentCustomer MarkCurrentCustomerActive mode = EStr(Request.QueryString("mode")) sorry = "



Sorry, nothing was found.


Tip: If browsing is not yielding the results you are looking for, why not try using our search engine?

 

 
" yr = Year(Now) mnth = MonthName(Month(Now)) If Not PilotPageBegin("pwd_reminder", Empty) Then Response.Redirect g.HomePageURL & "pilot.asp" TemplateBeforePC If mode = "" Then Response.Write img1 & pc Response.Write "
" Response.Write "Your Email Address:
" Response.Write " " Response.Write "
" ElseIf mode = "results" Then If Request.QueryString("result") = "true" Then Response.Write"


Successful!

If we found your email on file, then your password has been sent. Return Home..

" Else email = Request.Form("email") If email <> "" And ValidEmailAddress(email) Then bodytxt = "Sorry to hear you have forgotten your password! The password which we currently have on file for you is: "&vbCrLf &vbCrLf Set rs = cnPILOT.Execute("SELECT EMail, Pword FROM tblLogins WHERE EMail = '"&email&"'") If Not rs.EOF Then bodytxt = bodytxt & " ---> "&rs("Pword")&"" rs.Close ReDim FromArray(1), ToArray(1), BCCArray(1) FromArray(0) = g.homeDomain & " Password Reminder Page" FromArray(1) = email ToArray(0) = "WebUser" ToArray(1) = email SentOff = SendEMail(FromArray, ToArray, 0, BCCArray, "text/plain", g.homeDomain & " Password Reminder Page", bodytxt, 3) If SentOff = "True" Then Response.Redirect g.homepageURL&"pwdminder.asp?mode=results&result=true" ElseIf SentOff = "False" Then Response.Write "


Your email was found but there was a problem with the mail server. Please contact the site owner.
" Else Response.Write SentOff & " unknown error" End If Else rs.Close 'In case it was empty. It has to be closed in two places due to the redirect Response.Write"


Not Successful!

We did not find your email on file. Return Home..

" End If 'END EDIT Else Response.Redirect g.homepageURL&"pwdminder.asp?mode=invalid" End If End If ElseIf mode = "invalid" Then Response.Write"


Sorry!

The email address you have entered does not appear to be a valid one. Please try again. Thank you!

" Else Response.Write sorry End If TemplateAfterPC PilotPageEnd %>