' $System.Access Read Bulletin $Office.Name - Bulletin Board Search ' If $Text Search Result ' Else Search ' EndIf
Keyword   Title Posted by Message
Bulletin Board  
Number of Articles to be searched  
' If $Text
' If $BID ' Set $b = $Bulletin.Boards.$BID.Articles ' Else ' Set $b = $Bulletin.Articles ' EndIf ' Set $r = $b.RowSet ' $r.SearchText = $Text ' $r.SearchNum = $Num ' If $Subject ' $r.SearchItems.Add Subject ' EndIf ' If $Name ' $r.SearchItems.Add Name ' EndIf ' If $Contents ' $r.SearchItems.Add Contents ' EndIf ' $BackPage = $BPage ' $Count = 0 ' For Each $a in $r ' If $BID or ! $a.Board.Private or ! $a.Board.GID ' Inc $Count ' Elif $Login.ID ' $GID = $a.Board.GID ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If $Contains ' Inc $Count ' EndIf ' EndIf ' Next
TitlePosted byDate
' If ! $Count Can not find any Articles. ' EndIf ' EndIf

' If $BID ' Else ' EndIf
[Article List][Latest Article List][Top Page] [Settings] [Help]