<% if ( not(Request("form_submit") = 1) and not(Request("id") = "") ) then dim objDb, strSQL, strErr, rsAgent set rsAgent = Server.CreateObject("ADODB.RecordSet") strSQL = "exec spUserView '0', '" & Request("id") & "'" set objDb = dbInit("cupcake") set rsAgent = objDb.Execute(strSQL) if not(rsAgent.EOF) then if not(rsAgent("email_address")="") and not(rsAgent("password")="") then strBody = "Hello " & rsAgent("first_name") & " " & rsAgent("last_name") &chr(10) &chr(13) & "This email is in response to your request for a password reminder. " &chr(10) &chr(13) & "Your Bakco.com agent password is: " & rsAgent("password") &vbcrlf &vbcrlf & "Should you have any additional questions or require help, please contact our office at (888)899-6599." &vbcrlf &vbcrlf & "Baker and Associates" &vbcrlf & "http://www.bakco.com" strErr="" str_email_address = rsAgent("email_address") strUserName = rsAgent("first_name") & " " & rsAgent("last_name") else strErr = "The email address " & Request("email_address") & " was not found." end if else strErr = "The email address " & Request("email_address") & " was not found." end if else strUserName = Request("agent_name") str_email_address = Request("email_address") strBody = Request("email_message") bSendMail = 1 end if if (bSendMail = 1) then set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = str_email_address objMail.From = EMAIL_APPROVAL_SENDER objMail.Subject = "Baker Associates Administrative Message" objMail.Body = strBody objMail.Send set objMail = nothing %> <%="Sent Password to " & strUserName %>
An email has been sent to <%=str_email_address%>. Use the button below to close this window.


<% else %> <%="Password Reminder for " & strUserName %>
"> ">
To:   
Message:
   
<% end if %>