%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
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("name"))) & "|WA|" & cStr(cStr(Request.Form("email"))) & ""
MailSubject = "Contact from ZerionGroup.Com"
'Global Variables
gBodyFormat = ""
set WA_MailObject = WAUE_Definition("mail.yourfulcrum.com","25","info@yourfulcrum.com","W3bm@iL")
if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
else
'To Entries
end if
'Attachment Entries
'BCC Entries
'CC Entries
'Character Set
'Body Format
set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1)
MailBodyFormat = gBodyFormat
'Set Importance
set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1")
'Start Mail Body
MailBody = MailBody & ""
MailBody = MailBody & cStr(Request.Form("refer"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("reason"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("name"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("title"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("coName"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("busType"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("email"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("phone"))
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form("addInfo"))
MailBody = MailBody & "
" & vbCrlf & ""
'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 ((cStr(cStr(Request.Form("Submit"))) <> "")) then
'WA Universal Email object="AspEmail"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("chris@yourfulcrum.com")
'Send Mail All Entries
if ("thankYou.html"<>"") then
Response.Redirect("thankYou.html")
end if
end if
%>
Expansion For Wholesalers
Ferguson, Noland, WinWholesale grow Read the full story ... Activant Eclipse Success Story
SG Supply grew its business by 18% Read the full story ... Distributor Growth
Many distributors posted double-digit growth in ‘07 Read the full story ... | You have something to say. We're here to listen. Are you a customer with feedback? We want to hear from you. Are you interested in a career with Zerion? We want to hear from you. Do you have questions about our services? We want to hear from you.
|
|---|