' $System.Access Read Forum
$Office.Name - Forum Search Result
' Set $f = $Forum.Forums.$FID
' $GID = $f.GID
' $Contains = $Groups.$GID.Users.Contains $Login.ID
' If ! $f.Private or $Contains
' If $Text
Search Result
| Subject | Posted by | Time |
|---|
' $Count = 0
' For Each $s in $f.Sessions
' Set $r = $s.Articles.RowSet
' $r.SearchText = $Text
' $r.SearchNum = 0
' If $Subject
' $r.SearchItems.Add Subject
' EndIf
' If $Name
' $r.SearchItems.Add Name
' EndIf
' If $Contents
' $r.SearchItems.Add Contents
' EndIf
' $SessionName = $s.Subject
' For Each $a in $r
' $t = $a.TimeStamp
' If $SessionName
|
| $SessionName |
' $SessionName = ""
' Else
|
' EndIf
$a.Name ( $a.Group Group ) |
$t.hour:$t.Minute00 $t.AMPM, $t.Day $t.month |
' Inc $Count
' Next
' Next
|
' If ! $Count
Can not find any Opinions.
' EndIf
' EndIf
' Else
No Right to Search this Forum.
' EndIf