<% 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 = "website@tinwaredirect.com" MailSubject = "New email submitted online" '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 set WA_MailObject = WAUE_AddBCC(WA_MailObject,"peter.samuel@phewdesign.com") 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 & "Name: " MailBody = MailBody & cStr(Request.Form("Contact name")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Company Name: " MailBody = MailBody & cStr(Request.Form("Company name")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Business Type: " MailBody = MailBody & cStr(Request.Form("Business type")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Address:
" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Address")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("address2")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("address3")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Postcode: " MailBody = MailBody & cStr(Request.Form("postcode")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Telephone: " MailBody = MailBody & cStr(Request.Form("Telephone")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Fax: " MailBody = MailBody & cStr(Request.Form("Fax")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("Email address")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Requirements: " MailBody = MailBody & cStr(Request.Form("Requirements")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("infotype1")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("infotype2")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("infotype3")) MailBody = MailBody & "
" & vbCrlf & "" 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 ((Request.ServerVariables("Request_Method")="POST") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("office@tinwaredirect.com") 'Send Mail All Entries if ("contact_thanks.asp"<>"") then Response.Redirect("contact_thanks.asp") end if end if %> Tin can and box manufacturer Tinware Direct

Tinware Direct Limited
Crowhill Farm
Ravensden Road
Wilden
Bedford
MK44 2QS

England
Tel:+44 (0) 1234 77 2001
Facsimile:+44 (0) 1234 77 2002
sales@tinwaredirect.com

For more information please complete the form below. Please be sure to complete all entries marked *
Contact Name: *
Company Name: *
Business Type: *
Address: *
 
Postcode:
Telephone:
Fax:
Email: *
Your requirements:  
Please contact me to discuss my requirements
Please send me a brochure
Please contact me to arrange a visit or a quote
 
Top of page