<% Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count Set fsoObject = Server.CreateObject("scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing Response.Write(lngVisitorNumber) %>

 
Our guest accommodation is E.T.C. four diamond rated, plus a silver award, and comprises two double and one double / twin room. (Families can easily be accommodated in adjacent rooms).

All rooms are tastefully decorated and have en-suite shower facilities. They are centrally heated and fully equipped with everything you need for a memorable stay.

Each room has a colour TV, DVD Player, refrigerator, hair dryer, iron, ironing-board and tea / coffee making facilities. Look in the fridge - you may even find a little treat !!

The rooms are completely separate from the main residence thereby ensuring complete privacy and each room has it's own private entrance off the main drive. With full off-road parking facilities our guests can come and go as they please without any constraints whatsoever.

The Warren has large gardens, for the pleasure of our guests, with immediate access to public footpaths leading to beautiful walks through the surrounding countryside.










Web Counter
[Freelogs.com]