%@ 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
<%
end if
%>