<% 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 = "info@toc-ltd.com" MailSubject = "TOC online enquiry" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("toc-ltd.com","25","dan.simmons","roarfilm4") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") 'Start Mail Body MailBody = MailBody & "Testing" '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="AspEmail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("john@hairybullet.com") 'Send Mail All Entries if ("emailus_thankyou.asp"<>"") then Response.Redirect("emailus_thankyou.asp") end if end if %> Tools of Coventry - Precision Engineers, Design, Prototypes & Production - Products
Tools of Coventry
Tools of CoventryTools of Coventry
Tools of Coventry
  Company Information
 
Tools of CoventryProductsTools of Coventry

Please complete the following information.
 
Name
Address
Telephone
Email
Comments
How did you find us?
 








 

 

Engineering Capacity
Defence Work
News
Tools Of Coventry
Email Us
Tools Of Coventry
Contact Details
ISO
Engineering Capacity Contact Details

© 2004 Core Design Communications Ltd.

News