<% if trim(request("myname")) > "" then if trim(request("myname")) = "" then strErr = strErr & " - Contact Name
" end if if trim(request("myemail")) = "" then strErr = strErr & " - Email Address
" end if if trim(strErr) = "" then themailbitthiny = themailbitthiny & "Contact: " & trim(request("myname")) & "
" themailbitthiny = themailbitthiny & "Email: " & trim(request("myemail")) & "
" themailbitthiny = themailbitthiny & "" '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 = "enquiries@saddleworthcheese.co.uk" ' myMail.To = "hellojames@media.cx" ' myMail.Cc = "enquiries@saddleworthcheese.co.uk" ' myMail.Subject = "** A SIGN UP FROM SADDLEWORTHCHEESECO WEBSITE **" ' mymail.HtmlBody = themailbitthiny ' myMail.Send ' set myMail=nothing 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 = "** A SIGN UP FROM SADDLEWORTHCHEESECO WEBSITE **" myMail_Client.HTMLBody = themailbitthiny myMail_Client.Send set myMail_Client=nothing strErr = "THANK YOU!
We will be in contact very soon!
" 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
   
 

title-mail

Should you wish to sign up to our newletter please fill in you email address below and we will add you to our ever growing database. Please note we do not pass your details on to any other third parties.

Your Name:
Your Email:
 

 

Cheese Table