<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Request a password to be e-mailed to the user
MM_RequestPasswordAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_RequestPasswordAction = MM_RequestPasswordAction + "?" + Request.QueryString
EMailAddress = CStr( Request.Form( "emailaddress" ) )
ErrorMessage = ""
' If the user entered an e-mail address
If EMailAddress <> "" Then
MM_redirectRequestPasswordSuccess="advisor_request_password_success.asp"
' Create the command to find the user's password by his/her e-mail address
Set GetUserCommand = Server.CreateObject( "ADODB.Command" )
GetUserCommand.ActiveConnection = Application( "CenturionCounsel_ConnectionString" )
GetUserCommand.CommandType = adCmdText
GetUserCommand.CommandText = "SELECT password " & _
"FROM advisors " & _
"WHERE LOWER( email ) = ?"
' Find the user's password
Set UserRecordset = GetUserCommand.Execute( , Array( LCase( EMailAddress ) ) )
' If the user was found,
If Not UserRecordset.EOF Then
' Send an e-mail to the user with the password
Set MailMessage = Server.CreateObject( "CDO.Message" )
MailMessage.From = "info@centurioncounsel.com"
MailMessage.To = LCase( EMailAddress )
MailMessage.Subject = "Centurion Counsel Advisor password request"
' TODO - Add more professional language for the e-mail here?
MailMessage.TextBody = "Your Advisor password is """ & UserRecordset( "password" ) & "."""
MailMessage.Send
Set MailMessage = Nothing
UserRecordset.Close
Response.Redirect(MM_redirectRequestPasswordSuccess)
End If
UserRecordset.Close
ErrorMessage = "E-mail address not found."
End If
%>
Welcome to Centurion Counsel, Inc.
