<%@LANGUAGE="VBSCRIPT"%> <% If Request.form <> "" Then strMessage = "Contact submission from www.landmarkwholesale.co.uk/retailmatters" & Chr(13) & Chr(13) strMessage = strMessage & "Name : " & Request.Form("Name") & Chr(13) strMessage = strMessage & "Email : " & Request.Form("Email") & Chr(13) strMessage = strMessage & "Phone : " & Request.Form("Phone") & Chr(13) strMessage = strMessage & "Message : " & Request.Form("Message") & Chr(13) If Request.Form("Name") <> "" And Request.Form("Email") <> "" And Request.Form("Message") <> "" Then Set objMail = CreateObject("CDO.Message") objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Application("SMTPServer") objMail.Configuration.Fields.Update objMail.From = "siteuser@landmarkwholesale.co.uk (Retail Matters section)" objMail.To = "vicky.johnson@lmkcc.co.uk" objMail.Cc = "stuart.johnson@lmkcc.co.uk" objMail.ReplyTo = Replace(Request.Form("Email") & " (" & Request.Form("Name") & ")", vbNewLine, " ") objMail.Subject = "Retail Matters website information request" objMail.TextBody = strMessage objMail.Send Set objMail = Nothing End If End If %> Landmark Wholesale - Retail Matters

Retail Matters

We hope you enjoyed the latest issue of Retail Matters. Please fill in the form below to let us know any feedback you have on the latest issue and any topics you would like us to cover in future issues. Thank you. <% If Request.Form("Name") <> "" And Request.Form("Email") <> "" And Request.Form("Message") <> "" Then Response.Write "

Thank you, your message has been sent successfully. If your message requires a response we will contact you shortly.

" %>

Landmark Wholesale Limited
Registered in England & Wales
Company number: 659576
Registered Office: 433 Silbury Boulevard, Central Milton Keynes, MK9 2AH
VAT number: 718 6837 95