' If $Guest and ! $Forum.VW ' $System.Access Write Forum ' Elif $Guest ' $System.Access Read Forum ' Else ' $System.Access Post Forum ' EndIf ' If $System.IsPost ' $Command.Forum.Post ' $System.Redirect $Server?page=ForumArticle&fid=$FID&sid=$SID&head=$Head&guest=$Guest&bpage=$BPage ' Exit ' EndIf $Office.Name - Subject ' Set $f = $Forum.Forums.$FID ' $GID = $f.GID ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' Set $s = $f.Sessions.$SID ' If $f.Private and ! $Contains No Right to Browse this Forum.

' Elif ! $s This Subject has been deleted already.

' Else ' Sub Navigator ' If $r.Prev and $r.Next Latest opinion(s) | << Prev. $Rows opinion(s) | Next $Rows opinion(s) >> ' Elif $r.Prev Latest opinion(s) | << Prev. $Rows opinion(s) | Next $Rows opinion(s) >> ' Elif $r.Next Latest opinion(s) | << Prev. $Rows opinion(s) | Next $Rows opinion(s) >> ' Else Latest opinion(s) | << Prev. $Rows opinion(s) | Next $Rows opinion(s) >> ' EndIf ' EndSub ' If $Guest ' Else ' EndIf
Forum List
$f.Name
$s.Subject
$s.Subject   [Delete]
' If ! $Guest or ! $Forum.VW

' If $Guest ' Else ' EndIf ' $Files = $Forum.Files ' If ! $Files and ($Files != 0) ' $Files = 1 ' EndIf ' $Header = Attachment ' For $i = 1 to $Files ' $Header = "" ' Next
Posted by
Email
Posted by$Login.Name $_Login.Mail.MailTo   
Opinion
$HeaderFile $i ' If $Env.IsMac ' EndIf
' Else

' EndIf ' Set $r = $s.Articles.RowSet ' $Rows = $Forum.Articles ' If ! $Rows ' $Rows = 20 ' EndIf ' $r.Rows = $Rows ' If $SHead ' $r.Head = $SHead ' EndIf ' $Navigator

' For Each $a in $r ' $t = $a.TimeStamp ' If ! $a.UID ' Elif $a.Group ' Else ' EndIf ' If ! $Guest ' EndIf ' Next
$a.Head ...$a.Name $_a.Mail.MailTo$a.Name ($a.Group) $_a.Mail.MailTo$a.Name $_a.Mail.MailTo[Delete]

 ' View $a.Contents ' For Each $af in $a.Files ' If $Forum.InlineImage and ($af.Type = image) and ($af.SubType != tiff)
' Elif $af.Type and ($af.SubType != richtext) and ($f.SubType != octet-stream)
$af.FileName ($af.Type/$af.SubType) ' Else ' $MIME.FileName = $af.FileName ' If $MIME.Type
$af.FileName ($MIME.Type/$MIME.SubType) ' Else
$af.FileName ' EndIf ' EndIf ' Next
( $t.hour:$t.Minute00 $t.AMPM, $t.Day $t.month )
' $Navigator

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