' $System.Access Read Forum $Office.Name - Subject List ' Set $f = $Forum.Forums.$FID ' $GID = $f.GID ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If ! $f.Private or $Contains
Forum List
$f.Name [New Subject] Posted by Opinion

' Set $r = $f.Sessions.RowSet ' $Rows = $Forum.Sessions ' If ! $Rows ' $Rows = 20 ' EndIf ' $r.Rows = $Rows ' If $Head ' $r.Head = $Head ' EndIf ' For Each $s in $r ' $t = $s.TimeStamp ' Next
SubjectLast Updated
$s.Subject( $t.hour:$t.Minute00 $t.AMPM, $t.Day $t.month )

' If $r.IsEmpty No Subject found.

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

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

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

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

' EndIf ' Else No Right to Browse this Forum.

' EndIf ' If $BPage = index ' Else ' EndIf
[Top Page][Forum List][Top Page] [Help]