<%
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
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
