<%
if Application(dbName&"boarddown") = 1 and not isAdmin then
Dim arrBoardDown, BoardDownMsg, objRS
set objRS = server.createobject("adodb.recordset")
With objRS
.open dbOwnerPrefix&"spBoardDownMsg", datastore, , , adCmdStoredProc
if not (.eof and .bof) then arrBoardDown = .getrows
.close
End With
set objRS = nothing
BoardDownMsg = arrBoardDown(0,0)
BoardDownMsg = replace(BoardDownMsg,"#forumtitle#",Application(dbName&"ForumTitle"))
BoardDownMsg = replace(BoardDownMsg,"#today#",SQLDate(SQLNowDate(), Application(dbName&"timeoffset"), true))
BoardDownMsg = replace(BoardDownMsg,vbCrLf," ")
%>
<%= Application(dbName&"ForumTitle") %>
<%= OutputCSS() %>
>
<% call headerHTML() %>