<% Dim sDateTime, sDate, sTime Dim sBody Dim mailObj sDate = date sTime = time sDateTime = sDate & " " & sTime ' setup email elements sBody = "" sBody = sDateTime & vbCRLF & vbCRLF &_ "The following person has made agent referrals online: " & vbCRLF & vbCRLF &_ "Refrerring Agent : " & Request.Form("agent") & vbCRLF &_ "Email : " & Request.Form("email") & vbCRLF &_ "-------------------------------------------------" & vbCRLF &_ "Referral 1 : " & Request.Form("referral1") & vbCRLF &_ "Address : " & Request.Form("addr1") & vbCRLF &_ " " & Request.Form("csz1") & vbCRLF &_ "Phone : " & Request.Form("ph1") & vbCRLF &_ "-------------------------------------------------" & vbCRLF &_ "Referral 2 : " & Request.Form("referral2") & vbCRLF &_ "Address : " & Request.Form("addr2") & vbCRLF &_ " " & Request.Form("csz2") & vbCRLF &_ "Phone : " & Request.Form("ph2") & vbCRLF &_ "-------------------------------------------------" & vbCRLF &_ "Referral 3 : " & Request.Form("referral3") & vbCRLF &_ "Address : " & Request.Form("addr3") & vbCRLF &_ " " & Request.Form("csz3") & vbCRLF &_ "Phone : " & Request.Form("ph3") & vbCRLF &_ "-------------------------------------------------" & vbCRLF &_ "Referral 4 : " & Request.Form("referral4") & vbCRLF &_ "Address : " & Request.Form("addr4") & vbCRLF &_ " " & Request.Form("csz4") & vbCRLF &_ "Phone : " & Request.Form("ph4") set mailObj = Server.CreateObject("CDONTS.Newmail") mailObj.Subject = "STI Agent Referrals: " & Request.Form("agent") mailObj.To = "lloyd_lofton@aric.com" mailObj.BCC = "pulaki@bellsouth.net" mailObj.From = "sti@aric.com" mailObj.Body = sBody ' mailObj.To = "pulaki@bellsouth.net" mailObj.send set mailObj = NOTHING ' send a thank you to the customer....first check if there is an email address... sBody = "" sBody = "Thank You " & Request.Form("agent") & "!" & vbCRLF & vbCRLF &_ "This email is to confirm your referral(s) online at American Republic" & vbCRLF &_ "Sales Training Institue (ARSTI.com) on " & sDateTime & ":" & vbCRLF & vbCRLF &_ "-------------------------------------------------" & vbCRLF &_ "Please email any questions to: sti@aric.com" & vbCRLF &_ "with a subject line *agent referrals question*" & vbCRLF & vbCRLF &_ "Thank you." set mailObj = Server.CreateObject("CDONTS.Newmail") mailObj.Subject = "STI Agent Referrals Received" mailObj.To = Request.Form("email") mailObj.From = "sti@aric.com" mailObj.Body = sBody mailObj.send ' cleanup and redirect to confirmation page set mailObj = NOTHING %> Sales Training Institute :: Sales training that can take you to the top
           
Buy leads online
  Home    ::     Register   ::   Login   ::  Site Map       
Contacting the Sales Training Institute...

American Republic Insurance Company
Sales Training Institute

601 6th Avenue
Des Moines,  IA   50334

515-558-6527

STI@aric.com

   

   
Copyright ® 2005 American Republic Insurance Company
Reproduction or use for any purpose without explicit permission is strictly prohibited.