<%
if not isempty(Request.Form("email")) then
set userLogIn = Server.CreateObject("ADODB.Recordset")
userLogIn.ActiveConnection = MM_workspace_string
userLogIn.Source = "SELECT email, username, fullname, password FROM users where email = '" & Request.Form("email") & "'"
userLogIn.CursorType = 0
userLogIn.CursorLocation = 2
userLogIn.LockType = 3
userLogIn.Open
userLogIn_numRows = 0
if userLogIn.EOF then
TheMessage = "Sorry, the e-mail address you entered (" & request.form("email") & ") was not found. Click here to try again."
else
TheMessage = "Thank you " & userLogIn("fullname") & " an e-mail containing your username and password has been sent to " & request.form("email") & " Click here to Log-In"
' send user an e-mail
fromAdd = workspaceWebmasterEmail
fromName = workspaceWebmasterName
toAdd = userLogIn("email")
toName = userLogIn("fullname")
mySubject = "Your " & workspaceName & " Password Reminder"
myBody = "You have recieved this message because a request was made for a username & password reminder for a " & workspaceName & " account in your name." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Your details are as follows:" & Chr(13) & Chr(10) & _
"username = " & userLogIn("username") & Chr(13) & Chr(10) & _
"password = " & userLogIn("password") & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Regards" & Chr(13) & Chr(10) & _
workspaceWebmasterEmail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = workspaceSMTP ' Specify a valid SMTP server
Mail.From = fromAdd ' Specify sender's address
Mail.FromName = fromName ' Specify sender's name
Mail.AddAddress toAdd, toName
Mail.AddReplyTo fromAdd
Mail.Subject = mySubject
Mail.Body = myBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description & ""
End If
end if
end if
%>
