" & vbCrlf & ""
MailBody = MailBody & "| Name: | "
MailBody = MailBody & cStr(Request.Form("name"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Company: | "
MailBody = MailBody & cStr(Request.Form("company"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Address: | "
MailBody = MailBody & cStr(Request.Form("address"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| City: | "
MailBody = MailBody & cStr(Request.Form("city"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| State: | "
MailBody = MailBody & cStr(Request.Form("state"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Zip: | "
MailBody = MailBody & cStr(Request.Form("zip"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Phone: | "
MailBody = MailBody & cStr(Request.Form("phone"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Fax: | "
MailBody = MailBody & cStr(Request.Form("fax"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Email: | "
MailBody = MailBody & cStr(Request.Form("email"))
MailBody = MailBody & " |
" & vbCrlf & ""
MailBody = MailBody & "| Comments: | "
MailBody = MailBody & cStr(Request.Form("comment"))
MailBody = MailBody & " |
" & vbCrlf & ""
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
WA_Universal_Email_1_SendMail("info@pricebuildings.com")
WA_Universal_Email_1_SendMail("info@microcomservices.com")
'Send Mail All Entries
if ("formsent.asp"<>"") then
Response.Redirect("formsent.asp")
end if
end if
%>
