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