<% 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 = "MGM customer|WA|studio@branchoutdesign.com" MailSubject = "Enquiry from MGM customer" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("smtp.fasthosts.co.uk","25","","","","") 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 'Character Set set WA_MailObject = WAUE_SetCharset(WA_MailObject,"ISO-8859-1") '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 & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "

		Enquiry from MGM web site
name		" MailBody = MailBody & cStr(Request.Form("name")) MailBody = MailBody & "
address		" MailBody = MailBody & cStr(Request.Form("address")) MailBody = MailBody & "
telephone		" MailBody = MailBody & cStr(Request.Form("telephone")) MailBody = MailBody & "
email		" MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "
information required		" MailBody = MailBody & cStr(Request.Form("information")) 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 ((cStr(Request.Form("submit")) <> "")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("edwards@mgm-trading.co.uk") WA_Universal_Email_1_SendMail("info@mgm-trading.co.uk") WA_Universal_Email_1_SendMail("alanparsons@hardworking.co.uk") 'Send Mail All Entries if ("thanks.htm"<>"") then Response.Redirect("thanks.htm") end if end if %>

If you would like the name of your nearest showroom or other information please use this form

name A value is required. A value is required. address A value is required. telephone A value is required. email A value is required.Invalid format. information required A value is required. click button when completed