<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Response.Buffer = True %> <% Dim smtpserver,youremail,yourpassword,ContactUs_NameLeader,ContactUs_EmailLeader,ContactUs_Name1,ContactUs_Email1,ContactUs_Name2,ContactUs_Email2,ContactUs_Name3,ContactUs_Email3,ContactUs_Name4,ContactUs_Email4,ContactUs_Name5,ContactUs_Email5,ContactUs_Name6,ContactUs_Email6,Action,IsError ' Edit these 3 values accordingly smtpserver = "intmail.atlas.pipex.net" youremail = "welcome@sebrightcottage.co.uk" yourpassword = "Problematic07" ' Grabbing variables from the form post ContactUs_NameLeader = Request("ContactUs_NameLeader") ContactUs_EmailLeader = Request("ContactUs_EmailLeader") ContactUs_Name1 = Request("ContactUs_Name1") ContactUs_Email1 = Request("ContactUs_Email1") ContactUs_Name2 = Request("ContactUs_Name2") ContactUs_Email2 = Request("ContactUs_Email2") ContactUs_Name3 = Request("ContactUs_Name3") ContactUs_Email3 = Request("ContactUs_Email3") ContactUs_Name4 = Request("ContactUs_Name4") ContactUs_Email4 = Request("ContactUs_Email4") ContactUs_Name5 = Request("ContactUs_Name5") ContactUs_Email5 = Request("ContactUs_Email5") ContactUs_Name6 = Request("ContactUs_Name6") ContactUs_Email6 = Request("ContactUs_Email6") Action = Request("Action") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Sebright Holiday Cottage -Testimonials
Sebright Farm Cottage
Home Home
Setting Setting and History
Photos Photos
Facilities & Accommodation Facilities & Accommodation
Availability & Pricing Availability & Pricing
Enquire Now Enquire Now
Testimonials Testimonials
Parties & Events Parties & Events
Wildlife at Sebright Cottage Wildlife at Sebright Cottage
Things To Do Things To Do
Directions Directions
Contact Us Contact Us
   
Extra Services
Taking time out, is a pleasure and necessity for all.  See what other guests have written about their stay at Sebright Farm Cottage.

“…just wanted to say thanks for what was a fantastic holiday at the cottage.”
P. Roberts,
, Richmond.

“It was great to have all the family together in the cottage for 2 days for my daughter’s wedding.”
Adrian Scofield. St Albans.

"Mary, myself and the kids had a great vacation at the cottage. We loved spending time in the beautiful English countryside as much as we did our days out in London. We’ll be back! Thank you!”
Tom Densmore, Texas, US.

“I will never forget getting ready for my big day in Sebright Cottage, mum and dad loved it too. I will recommend you to my friends”
Emily S, London.

'The welcome was great - roaring open fire, goodies in the kitchen - and we loved the farm animals'
T Hadden, Glasgow.

'Natalie and Jane won't stop talking about the fun they had on the farm, especially collecting the eggs from the chickens - that made it an even better holiday for us parents'. Sarah Wragg, Leeds.

“We had a brilliant bank holiday weekend exploring the Hertfordshire and Chiltern Way. Sorry we lost the Sebright Cottage Explorer Map :-) ”
Michael Knowles,
Leicester.

 
Copyright © 2007 - 2008
Sebright Farm Cottage, Beechwood Park, Hertfordshire, England, UK
E: welcome@sebrightcottage.co.uk W: www.sebrightcottage.co.uk T:
+44 (0) 7881 627900