News

<% 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("nw_functions.asp", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("nw_view.asp", nof_sitePath, nof_scriptDir) %> News

[Home] [News]


		Newsletter

		Welcome to the King Henry's Wharf Residents Association Newsletter. This Newsletter was created to provide members with news and events happening on the estate. This Newsletter, updated monthly, provides a quick and easy way for you to stay up to date and get the latest information wherever and whenever you need it.




	For questions, comments, or to request additional information, proceed to the Contact Us page.

			<% nof_componentId="1179648663781" nof_componentName="view" nof_scriptInterfaceFile="News1179647868703.xml.asp" nof_debug=true set nof_locale = nwLocaleToDictionary(nof_sitePath & nof_scriptDir, "News_en.properties") Call nwViewMain() %>


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