[an error occurred while processing this directive] [an error occurred while processing this directive] <% 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 = "info request" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries 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 & "INFO REQUEST SUBMISSION FORM

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "CONTACT INFORMATION:

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Prefix: " MailBody = MailBody & cStr(Request.Form("prefix")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "First Name: " MailBody = MailBody & cStr(Request.Form("fname")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Last Name: " MailBody = MailBody & cStr(Request.Form("lname")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Company Name: " MailBody = MailBody & cStr(Request.Form("cname")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Job Title: " MailBody = MailBody & cStr(Request.Form("jtitle")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Address: " MailBody = MailBody & cStr(Request.Form("address1")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Address 2: " MailBody = MailBody & cStr(Request.Form("address2")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "City: " MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "State/Region: " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Country: " MailBody = MailBody & cStr(Request.Form("country")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Zip/Postal Code: " MailBody = MailBody & cStr(Request.Form("zip")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Telephone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "

" & 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 %> Avitech International Corporation
 

Company Info
Contact Us
Info Request
Employment

Support

Find an International Representative

Info Request

* denotes required field.
CONTACT INFORMATION
   
Prefix
* First Name * Last Name
* Job Title Company Name
Address Address 2
* City * State/Region
* Country * Zip/Postal Code
* Telephone * Email
       
PLEASE TELL US ABOUT YOUR COMPANY
   
* What industry is your company in?
* How soon will you make your
purchase decision?
* Would you like to be contacted by a salesperson or see a demo?
* How did you hear of Avitech?
Comments
   

 


Home | Products | Markets & Applications | About Us | News & Events | Contact Us | Support | Dealer Login

© Copyright Avitech International Corporation 2008. All rights reserved.
Website developed by Virtuosity Design, and Delamere Marketing