' $System.Access Read Bulletin $Office.Name - Article List ' Set $b = $Bulletin.Boards.$BID ' $GID = $b.GID ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If $b.Private and ! $Contains No Right to Browse this Bulletin Board.

[Bulletin Board List] ' Exit ' EndIf

Bulletin Board List
$b.Name [Post an Article] [More Search Options]
' Set $r = $b.Articles.RowSet ' If $Bulletin.Lines ' $Rows = $Bulletin.Lines ' Else ' $Rows = 20 ' EndIf ' $r.Rows = $Rows ' If $Head ' $r.Head = $Head ' EndIf ' $BackPage = BulletinSubject ' For Each $a in $r ' Next
TitlePosted byTime

' If $r.IsEmpty No Article found.

' Elif $r.Prev and $r.Next Latest article(s) | << Prev. $Rows article(s) | Next $Rows article(s) >>

' Elif $r.Prev Latest article(s) | << Prev. $Rows article(s) | Next $Rows article(s) >>

' Elif $r.Next Latest article(s) | << Prev. $Rows article(s) | Next $Rows article(s) >>

' Else Latest article(s) | << Prev. $Rows article(s) | Next $Rows article(s) >>

' EndIf
[Bulletin Board List] [Top Page] [Help]