<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if request("txtname") <> "" and request("txtemail") <> "" and request("txtenquiry") <> "" then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "89.238.145.150" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("txtemail") .Sender = "contact@kingswoodcottage.co.uk" .To = "kingswoodcottage@yahoo.co.uk" .Subject = "Website Enquiry Form" .HTMLBody = "Name: "& Request.Form("txtname") &"
Email: "& Request.Form("txtemail") &"
Telephone: "& Request.Form("txttel") &"
Enquiry: "& Request.Form("txtenquiry") &"" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing 'set cdomail = server.CreateObject("CDO.Message") 'with cdomail ' .to = "kingswoodcottage@yahoo.co.uk,info@apollo-media.com" ' .from = "contact@kingswoodcottage.co.uk" ' .subject = "Website Enquiry Form" ' .htmlbody = server.HTMLEncode(request("txtname") & " (" & request("txtemail") & ") Said... >" & vbcrlf & vbcrlf & request("txtenquiry")) ' .send 'end with sent = true msg = "Thank you for your enquiry. We shall contact you shortly." else sent = false msg = "Please complete all fields." end if %> Kingswood Cottage

Contact Kingswood Cottage

<% if msg <> "" then response.write("

" & msg & "

") end if if not sent then%>
Name:
Email:
Tel:
Enquiry:
 
 

Where to Find Us

Click on the map below to find us using Google Maps

 

<% end if %>