<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Get_Section_Details__MMColParam
Get_Section_Details__MMColParam = "Home Page"
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%>
Balston & Company is a landscape design practice based in Wiltshire which operates throughout Great Britain and Europe, as well as occasionally in North and South America, the Middle East and Asia.
Established in 1983, we are highly experienced in the fields of architecture, landscape design, landscape planning, forestry, horticulture and garden management.
We are involved in a wide variety of high-quality projects including private gardens and landscape management, urban planning, estate planning, and general Landscape design. We also have won many awards for garden and exhibit design at British and international Flower Shows.
We are a small company of five full time professional staff together with support staff as required, ensuring the closest attention to each individual job.
Senior Director
MA, Dip Arch, LA, RIBA, CMLI
<%
Get_Section_Details.Close()
Set Get_Section_Details = Nothing
%>
