<% nof_rootDir="../" nof_scriptDir="scripts" nof_debug=true nof_sitePath = GetSitePath(nof_rootDir) function GetSitePath(RootDir) Dim relPath relPath = split(RootDir, "/") forwardSteps = UBound(relPath) - 1 if forwardSteps = 0 and relPath(0) = "." then forwardSteps = -1 GetSitePath = Server.MapPath(".") for idx=0 to forwardSteps GetSitePath = Left(GetSitePath, inStrRev(GetSitePath, "\") - 1) next GetSitePath = GetSitePath & "\" end function %> <% sub IncludeLib(ByVal lib, ByVal sitePath, ByVal scriptDir) dim fso, f, buf, filePath Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & lib if fso.FileExists(filePath) then set f = fso.OpenTextFile(filePath, 1, false, -2) buf = f.ReadAll f.close() set f = nothing Dim regEx Set regEx = New RegExp regEx.Pattern = "^\s*<" & chr(37) & "\s*" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf,"") regEx.Pattern = "\s*" & chr(37) & ">\s*$" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf, "") set regEx = nothing ExecuteGlobal buf else if nof_debug then Response.Write "Could not include the file `" & filePath & "`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if Response.End end if set fso = nothing end sub %> <% call IncludeLib("faq_XmlLib.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("faq_toc.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("faq_search.asp", nof_sitePath, nof_scriptDir) %> Projects

King Henry's Wharf
[Home] [Projects]

Projects

The Residents Association and the Management Companies are continually working to improve the estate.

We have compiled a FAQ (Frequently Asked Questions) section specifically for on going projects. For more general FAQ please click here.
<% set nof_locale = faqLocaleToDictionary(nof_sitePath & nof_scriptDir, "FAQ_en.properties") set toc_1178219501484 = new FaqToc toc_1178219501484.mComponentId = "1178219501484" toc_1178219501484.mComponentName = "toc" toc_1178219501484.mXmlPropFile = "FAQ1178194248796.xml.asp" if toc_1178219501484.Initialize(nof_sitePath, nof_scriptDir, nof_rootDir, nof_debug) then call toc_1178219501484.ShowToc() end if set toc_1178219501484 = nothing %>
Placeholder Image
Placeholder Image
Boat_102
<% set nof_locale = faqLocaleToDictionary(nof_sitePath & nof_scriptDir, "FAQ_en.properties") set search_1178219572203 = new FaqSearch search_1178219572203.mComponentId = "1178219572203" search_1178219572203.mComponentName = "search" search_1178219572203.mXmlPropFile = "FAQ1178194248796.xml.asp" if search_1178219572203.Initialize(nof_sitePath, nof_scriptDir, nof_rootDir, nof_debug) then call search_1178219572203.ShowSearchForm() end if set search_1178219572203 = nothing %>
BuiltWithNOF
Placeholder Image

Parking Cleanup

Garden / Landscaping

Maintenance

Security
[Home] [About] [Contact Us] [Projects] [Projects FAQ] [News] [FAQ] [Members Home] [SiteAdmin] [Guestbook] [Safer Neighbourhood] [BlankPage]