<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Get_Section_Details__MMColParam Get_Section_Details__MMColParam = "-1" If (Request("MM_EmptyValue") <> "") Then Get_Section_Details__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Get_Section_Details Dim Get_Section_Details_numRows Set Get_Section_Details = Server.CreateObject("ADODB.Recordset") Get_Section_Details.ActiveConnection = MM_client_database_STRING Get_Section_Details.Source = "SELECT * FROM Sections WHERE section = '" + Replace(Get_Section_Details__MMColParam, "'", "''") + "'" Get_Section_Details.CursorType = 0 Get_Section_Details.CursorLocation = 2 Get_Section_Details.LockType = 1 Get_Section_Details.Open() Get_Section_Details_numRows = 0 %> /images/logos/favicon.ico" type="image/x-icon"> /images/logos/favicon.ico" type="image/x-icon"> <% 'extract the title for this page from the name 'of the file. this obviously relies on the fact 'that someone has given it a nice name ScriptName=CStr(Request.ServerVariables("SCRIPT_NAME")) 'Response.Write (ScriptName) + "
" ScriptParts=Split(ScriptName,"/") ScriptFile=ScriptParts(Ubound(ScriptParts)) ScriptFileParts=Split(ScriptFile,".") ScriptTitle=ScriptFileParts(0) First_3_chars = Left (ScriptTitle, 3) If Right (First_3_chars, 1) = "$" Then ScriptTitle = Mid (ScriptTitle, 4) End If 'if whatever we are left with is an index file 'then use the name of the parent directory instead If Lcase(ScriptTitle) = "index" Then ScriptTitle=ScriptParts(Ubound(ScriptParts)-1) End If 'if Request.QueryString("title") exists then 'append it to ScriptTitle If Trim(Request.QueryString("title")) <> "" Then ScriptTitle = ScriptTitle + ": " + Request.QueryString("title") Else If Trim(Request.QueryString("directory")) <> "" Then ScriptTitle = Request.QueryString("directory") End If End If ScriptTitle=Replace(ScriptTitle,"-"," ") ScriptTitle=Replace(ScriptTitle,"_"," ") ScriptTitle=Replace(ScriptTitle,"/pages/","") ScriptTitle=Replace(ScriptTitle,"/"," - ") ScriptTitle=Replace(ScriptTitle," and "," & ") %> <%=Application("company_long_name")%> - <%=ScriptTitle%>
">
" target="_top">Return to the Home Page

"> " wmode="transparent">

 
Our garden at Manor Farmhouse, Patney, is effectively a working laboratory.  It illustrates our commitment to research into good garden and landscape plants as well as a sustainable ecology.

A huge palette of plants and combinations are tried out in the gardens where shelter, drainage and soil give optimum growth conditions.

Our extensive plant and horticultural knowledge, allied to our design philosophy, allows for both a garden that is beautiful, whilst creating an ecology which is sustainable.

 

 

 
 
 
<% Get_Section_Details.Close() Set Get_Section_Details = Nothing %>