<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("Email"))) & "" MailSubject = "Contact Achievement Bridge" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("mail.achievementbridge.com","25","","achievementbridge","focus5") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries set WA_MailObject = WAUE_AddRecipient(WA_MailObject,"steve@achievementbridge.com") MailTo = gAddRecipient end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "

First Name: " MailBody = MailBody & cStr(Request.Form("FirstName")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Last Name: " MailBody = MailBody & cStr(Request.Form("LastName")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Email: " MailBody = MailBody & cStr(Request.Form("Email")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Phone: " MailBody = MailBody & cStr(Request.Form("Phone")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Best Time" MailBody = MailBody & cStr(Request.Form("BestTime")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Company: " MailBody = MailBody & cStr(Request.Form("Company")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Comments" MailBody = MailBody & cStr(Request.Form("textarea")) MailBody = MailBody & "

" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry 'Send Mail All Entries WA_Universal_Email_1_SendMail("") if ("default.cfm"<>"") then Response.Redirect("default.cfm") end if end if %> Contact AchievementBridge

Thank you for your interest in AchievementBridge™

Programs and Services!

Please give us your feedback or requests

or call 877-668-0607 for assistance

First Name
Last Name
Email Address
Phone
Best Time and Day to be reached
Company
Please share the nature of your inquiry or comment
 

 

Copyright AchievementBridge, Inc.

All Rights Reserved

 

We Coach...

You Win!

AchievementBridge is in the business success business. 

To learn more about current programs and services, please visit PrimeFocus Coaching. 

We Coach - You Win

To learn more about Coach Steve Dailey, Click here...