' $System.Access Read Bulletin ' Set $a = $Bulletin.Articles.$AID $Office.Name - $a.Subject ' $GID = $a.Board.GID ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If $a.Board.Private and ! $Contains No Right to Browse this Bulletin Board.

[Bulletin Board List] ' Exit ' EndIf ' If $BID ' Else ' EndIf ' $Icon = browse.gif ' If $a.Files ' $Icon = browse_file.gif ' EndIf
Bulletin Board List
Latest Article List
$a.Board.Name
$a.Subject [Reply] ' If $a.UID and ($a.UID = $Login.ID) [Edit] ' EndIf [Delete]

' $t = $a.TimeStamp ' If ! $a.UID ' Elif $a.Group ' Else ' EndIf
$t.hour:$t.Minute00 $t.AMPM, $t.Day $t.MONTH, $t.Year $a.Name $_a.Mail.MailTo$a.Name ($a.Group) $_a.Mail.MailTo$a.Name $_a.Mail.MailTo

' View $a.Contents
' If $a.Files.Count ' For Each $f in $a.Files ' $d = $f.Date ' If $Bulletin.InlineImage and ($f.Type = image) and ($f.SubType != tiff) ' Elif $f.Type and ($f.SubType != richtext) and ($f.SubType != octet-stream) ' Else ' $MIME.FileName = $f.FileName ' If $MIME.Type ' Else ' EndIf ' EndIf ' Next
$f.FileName ($f.Type/$f.SubType)
$f.FileName ($MIME.Type/$MIME.SubType)
$f.FileName
' EndIf

' If $BID ' Elif $BPage = index ' Else ' EndIf
[Article List][Top Page][Latest Article List][Top Page] [Help]