<% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function if trim(request("a")) = "contactsw" then strErr = "" if trim(request("Contact")) = "" then strErr = strErr & " - Contact Name
" end if if trim(request("Company")) = "" then strErr = strErr & " - Company
" end if if trim(request("Email")) = "" then strErr = strErr & " - Email Address
" end if if trim(request("Enquiry")) = "" then strErr = strErr & " - Enquiry
" end if if CheckCAPTCHA(Trim(Request.Form("strCAPTCHA"))) = false then strErr = strErr & " - The numbers and letters done appear to be correct
" end if if trim(strErr) = "" then themailbitthiny = themailbitthiny & "Contact: " & trim(request("Contact")) & "
" themailbitthiny = themailbitthiny & "Company: " & trim(request("Company")) & "
" themailbitthiny = themailbitthiny & "Tel: " & trim(request("Tel")) & "
" themailbitthiny = themailbitthiny & "Email: " & trim(request("Email")) & "
" themailbitthiny = themailbitthiny & "Enquiry: " & trim(request("Enquiry")) & "
" ' 'Send the email ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Set myMail = CreateObject("CDO.Message") ' 'set mail importance ' ' For Outlook 2003: ' myMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High" ' 'For Outlook 2003 also: ' myMail.Fields.Item("urn:schemas:mailheader:X-Priority") = 2 ' ' For Outlook Express: ' myMail.Fields.Item("urn:schemas:httpmail:importance") = 2 ' myMail.Fields.Update ' ' myMail.From = "website@saddleworthcheese.co.uk" ' myMail.To = "hellojames@media.cx" ' myMail.Cc = "enquiries@saddleworthcheese.co.uk" ' myMail.Subject = "** A NEW ONLINE ENQUIRY FROM SADDLEWORTHCHEESE.CO.UK **" ' mymail.HtmlBody = themailbitthiny ' myMail.Send ' set myMail=nothing if request("wf") = "stock" then strTheSubJect_a = "** WE STOCK YOUR CHEESE! ENQUIRY SADDLEWORTHCHEESE.CO.UK **" elseif request("wf") = "eventbook" then strTheSubJect_a = "** A NEW ONLINE BOOK/EVENT ENQUIRY SADDLEWORTHCHEESE.CO.UK **" else strTheSubJect_a = "** A NEW CONTACT ENQUIRY FROM SADDLEWORTHCHEESE.CO.UK **" end if set objConf = CreateObject("CDO.Configuration") Set myMail_Client=CreateObject("CDO.Message") Set objFlds = objConf.Fields With objFlds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "dedrelay.secureserver.net" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic .Update End With Set myMail_Client.Configuration = objConf Set myMail_Client=CreateObject("CDO.Message") Set myMail_Client.Configuration = objConf myMail_Client.From = "Saddleworth Cheese Website " myMail_Client.To = "enquiries@saddleworthcheese.co.uk" myMail_Client.Bcc = "support@media.cx" myMail_Client.Subject = strTheSubJect_a myMail_Client.HTMLBody = themailbitthiny myMail_Client.Send set myMail_Client=nothing response.Redirect("thanks.html") else strErr = "There seems to be a problem with your form please check and try again.
" & strErr end if end if %> Saddleworth Cheese Co - Sean Wilson Cheese
 
The Saddleworth Cheese Company
Sean Wilson
Home
News
cheese
cheese
Great Northern Cookbook
About Saddleworth
Providence
My History
DCWC Nepal
contact
Sean Wilson Cheese
Mailing List
   
 

contact-title

We are keen to form a database "family" of customers though the website where all our ranges are available. In the meantime we thank for visiting is and if we have whetted your appétit you are invited to leave your details when contacting us.

   

Whole sale Enquiries:
The Saddleworth Cheese Co.
C/O Park Head Farm
Inglewhite
Preston
Lancashire
PR3 2LN

If you wish to book Sean for an event or function please contact our press office on the details below:

Teresa Quinlan - LOVE PR London
Tel: 020 3551 3970


The Old House
Shepperton Studios
Studios Road
Shepperton
Middlesex
TW17 0QD

Email: teresa@loveprlondon.com
" method="post" name="contact" id="contact"> <% if strErr > "" then %> <% end if %>
Please check the following;
<%=strErr%>
Contact Name   Company Name
" >   " >
Telephone   Email
" >   " >
Enquiry    
     
CAPTCHA Image    
Please enter the numbers and letters as seen above.
   
   


The Saddleworth Cheese Co will not share your submitted details with any outside companies and we respect your privacy.

     

 

Cheese Table