<%@ Language=VBScript %>
<% 'Option Explicit %>
<%
Dim txtEmail, sSQL, strError, rsPerson, MM_appMMConnection_STRING
txtEmail = Request.form("txtEmail")
IF LEN(txtEmail) > 4 THEN
'send password and UserID to email address if it checks out.
sSQL = "SELECT * FROM tbl_People WHERE (((tbl_People.People_Email)="""& txtEmail &"""));"
'Response.Write sSQL
set rsPerson = Server.CreateObject("ADODB.Recordset")
rsPerson.ActiveConnection = MyConn
rsPerson.Source = sSQL
rsPerson.CursorType = 1
rsPerson.CursorLocation = 2
rsPerson.LockType = 3
rsPerson.Open()
IF rsPerson.EOF and rsPerson.BOF THEN
'Nobody exists with that email address.
strError = "No Registered Users Have that Email Address."
ELSE
rsPerson.MoveFirst
On Error Resume Next
Set Mail = Server.CreateObject("CDONTS.NewMail")
IF Err.Number = 0 THEN
Mail.To = rsPerson("People_Email")
Mail.From = "support@workathomeinfo.org"
Mail.Subject = "Lost Password"
s_Mail_Body = "" ' Start to build the mail body here
s_Mail_Body = s_Mail_Body & "Your login credentials were requested from WorkatHomeInfo.org..."&vbcrlf&vbcrlf
Do While not rsPerson.EOF
s_Mail_Body = s_Mail_Body & "---------------------------------------------"&vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "The requested UserID was: "& rsPerson("People_UserID") &vbcrlf
s_Mail_Body = s_Mail_Body & "The requested Password was: "& rsPerson("People_PassWord") &vbcrlf
rsPerson.MoveNext
LOOP
s_Mail_Body = s_Mail_Body & "---------------------------------------------"&vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "The Support Team at WorkatHomeInfo.org"
Mail.Body = s_Mail_Body
Mail.Send
Set Mail = Nothing
END IF
If Err <> 0 Then
strError = strError & "An Error has occurred sending the mail, please advise the webmaster: "& Err.Description
strError = strError & " " & FileAttach
End If
rsPerson.Close
strError = strError & "Your information has been sent via email."
END IF
End IF
%>
Work at Home Job Database
Enter
your email address in the form below and submit it. We will
send your user id and password to your registered email
account. If you have changed your email address, contact
us here
