" & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & "PLEASE TELL US ABOUT YOUR COMPANY
" & vbCrlf & ""
MailBody = MailBody & "What industry is your company in? "
MailBody = MailBody & cStr(Request.Form("industry"))
MailBody = MailBody & " " & vbCrlf & ""
MailBody = MailBody & "How soon will you make your purchsae decision? "
MailBody = MailBody & cStr(Request.Form("howsoon"))
MailBody = MailBody & " " & vbCrlf & ""
MailBody = MailBody & "Would you like to be contaced by a salesperson or see a demo? "
MailBody = MailBody & cStr(Request.Form("contacted"))
MailBody = MailBody & " " & vbCrlf & ""
MailBody = MailBody & "How did you hear of Avitech? "
MailBody = MailBody & cStr(Request.Form("hear"))
MailBody = MailBody & " " & vbCrlf & ""
MailBody = MailBody & "Comments: "
MailBody = MailBody & cStr(Request.Form("comments"))
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(Request("Submit"))<> "")) then
'WA Universal Email object="CDONTS NewMail"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("admin@delameremarketing.com")
WA_Universal_Email_1_SendMail("sales@avitechvideo.com")
'Send Mail All Entries
if ("info_request_confirm.shtml"<>"") then
Response.Redirect("info_request_confirm.shtml")
end if
end if
%>