<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% 'set return page returnPage = lookupPageName() 'declare vars Dim contentID, parentID, templateID, templateCode, metaKeywords, metaDescription, contentName, contentTitle, contentHeading, contentBody, publishedDate Dim contentError:contentError = false Dim c_parentIDs, c_parentNames, c_contentID, c_i Dim defaultpageTitle ' ***** 'any problems connecting to db? if isNumberValid(request.queryString("nodb")) = true then 'yes -> trigger content error contentError = true else 'no -> ok to proceed with page load contentID = request.queryString("contentID") if not isNumberValid(contentID) then contentID = g_homePageID else contentID = cInt(contentID) end if 'call content load loadContent 1 'check if html version should be used (redirects as appropriate) checkUseHTML contentID, contentName, Session(sessionPrefix & "aCMS_languageName") ' Count page view if isSearchEngine() = false AND not statExcludedIP() then SQLQuery = "SELECT statisticContentID FROM tblStatistics_content WHERE contentID=" & contentID & " AND day(statDate)=" & day(date()) & " AND month(statDate)=" & month(date()) & " AND year(statDate)=" & year(date()) & ";" if databaseType = 3 then SQLQuery = replace(SQLQuery," day("," dayofmonth(") Set ds = objConn.execute(SQLQuery) if not ds.BOF AND not ds.EOF then SQLQuery = "UPDATE tblStatistics_content SET pageViews=pageViews+1 WHERE statisticContentID=" & ds("statisticContentID") & ";" else SQLQuery = "INSERT INTO tblStatistics_content (contentID, statDate, pageViews) VALUES (" & contentID & ", " & prepDate(now()) & ", 1);" end if ds.close Set ds = nothing objConn.execute(SQLQuery) SQLQuery = "UPDATE tblContent_published SET pageViews=pageViews+1 WHERE contentID=" & contentID & ";" objConn.execute(SQLQuery) end if end if 'has there been an error loading the content? if contentError = true then 'yes -> An error occured and the content failed to be retrieved from the DB. ' Display standby content. SQLQuery = "SELECT defaultTitle FROM tblPrefs;" Set ds = objConn.execute(SQLQuery) if not ds.BOF AND not ds.EOF then if isTextValid(ds("defaultTitle")) then defaultpageTitle = ds("defaultTitle") & " - Under Construction" else defaultpageTitle = "Under Construction" end if else defaultpageTitle = "Under Construction" end if ds.close Set ds = nothing %> Under Construction



Under Construction

This website is currently being updated using the 123ID Website Manager.

Please check back soon.








Powered by 123 Internet Designs - Web  Design& Hosting

<% end if %>