============== Show all Boards ==================
<%
if objRs.EOF then
%>
<%
else
do while not objRs.EOF
strDescription = objRs.fields("description").Value
strBoardName = objRs.fields("boardname").Value
intBoardID = objRs.fields("ID").Value
Response.Write "
" & _
"" & htmlify(strBoardName) & ""
if objRs.fields("readonly").Value<>0 then Response.Write " "
if objRs.fields("hidden").Value<>0 then Response.Write " "
Response.Write " | "
call WriteText(strDescription)
Response.Write " |
"
objRs.movenext
i = i+1
loop
end if
%>
================ Show recent Messages =============
<%
if not rstNewMessages.EOF then
do while not rstNewMessages.EOF
if rstNewMessages.AbsolutePosition mod 2 = 0 then
strTmp = " class=oddList"
else
strTmp = ""
end if
response.write "" & _
htmlify(rstNewMessages("subject")) & ", " & htmlify(rstNewMessages("author")) & ", " & _
formatDate(rstNewMessages("timestamp")) & ", " & _
htmlify(rstNewMessages("groupname"))
response.write " |
"
rstNewMessages.movenext
i=i+1
loop
else
Response.Write "None |
"
end if
%>
======= Remove this code to go directly to last board ==========
if intCurrentBoardID>0 then call ServerTransfer("default.asp")
Response.Cookies(cLICENSE_ID)("archive") = "" 'exit archives
blnInArchive = false
================ Needed in Header ========================
<%
dim objRs, strDescription, strBoardName, intBoardID, i, blnAdmin, blnModerator, _
rstNewMessages, strTmp, _
intCurrentBoardID, intCurrentGroupID, intCurrentMessageID, blnInArchive
'resolve the archive status
call CheckArchive(blnInArchive)
'resolve Board, Group and Message-ID
call CheckBGM(intCurrentBoardID, intCurrentGroupID, intCurrentMessageID, intCurrentUserID, blnInArchive)
if intCurrentBoardID>0 then call ServerTransfer("default.asp")
Response.Cookies(cLICENSE_ID)("archive") = "" 'exit archives
blnInArchive = false
blnModerator = CheckModerator(objConnection, intCurrentUserID)
if blnModerator then
blnAdmin = CheckSysop(objConnection, intCurrentUserID)
else
blnAdmin = false
end if
if not blnModerator then
set objRs = ListBoardsForUser(objConnection, intCurrentUserID)
else
set objRs = ListBoards(objConnection)
end if
'if there is only one messageboard we go directly to that messageboard
if objRs.RecordCount=1 then Response.Redirect "default.asp?b=" & objRs("ID")
set rstNewMessages = ListNewMessageSubjects(objConnection, 10)
%>
================= Needed at end ========================
<%
objConnectionClose()
%>