============== 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 " Locked" if objRs.fields("hidden").Value<>0 then Response.Write " Hidden" 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() %>