' Sub MenuSchedule
<!-- Schedule -->
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#cccccc>
 <td width=1%><img src="/cb3/mini_schedule3.gif" border=0></td>
 <th align=left width=29% nowrap><a href="$Server?page=ScheduleIndex">Scheduler</a></th>
 <td align=center width=33% nowrap><a href="$Server?date=$Date.PrevMonth"><img src="/cb3/arrow_lj.gif" border=0></a>
 <b>$Date.MONTH, $Date.Year</b><!-- time --> <a href="$Server?date=$Date.NextMonth"><img src="/cb3/arrow_rj.gif" border=0></a></td>
 <td align=right width=33% nowrap>
  <a href="$Server?date=$Date.PrevWeek"><img src="/cb3/arrow_lj.gif" border=0></a>
  <a href="$Server?date=$Date.PrevDay" ><img src="/cb3/arrow_l1.gif" border=0></a>
  <a href="$Server?"                   ><img src="/cb3/today_e.gif"    border=0></a>
  <a href="$Server?date=$Date.NextDay" ><img src="/cb3/arrow_r1.gif" border=0></a>
  <a href="$Server?date=$Date.NextWeek"><img src="/cb3/arrow_rj.gif" border=0></a></td>
</tr></table>
<table width=100% border=1 cellspacing=0 cellpadding=1>
 <tr><td width=60 bgcolor=#cccccc nowrap><br></td>
'  $GID = $Login.Group.ID
'  For Each $WDate in $System.Week
  <td align=center bgcolor="$WDate.HDColor" nowrap>$_WDate.BSet$$WDate.Day ($WDate.wday)$_WDate.BEnd<!-- time --><a href="$Server?page=ScheduleDay&gid=$GID&date=$WDate&bdate=$Date"><img src="/cb3/dayview.gif" border=0></a></td>
'  Next
  <td bgcolor=#cccccc><br></td></tr>
'  Set $User = $Login
'  $ID = $Login.ID
'  $BgColor = #ffffff
'  $BackPage = index
'  $BackDate = $Date
'  $SetDate = $Date
'  $IncludeSchedule
</table>
' EndSub
<!--
' Sub MenuBusiness
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99><td width=1%><img src="/cb3/mini_business3.gif" border=0></td><th align=left nowrap><a href="http://cybozu.com/business/">Business Information</a></th><td><br></td></tr></table>
' EndSub -->
<!--
' Sub MenuNewspaper
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99><td width=1%><img src="/cb3/mini_newspaper3.gif" border=0></td><th align=left nowrap><a href="http://www.cnn.com/">CNN.com</a></th><td><br></td></tr></table>
' EndSub -->

' Sub MenuUserList
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99><td width=1%><img src="/cb3/mini_userlist3.gif" border=0></td><th align=left nowrap><a href="$Server?page=UserListIndex">User Table</a></th><td><br></td></tr></table>
' EndSub

' Sub MenuWebMail
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99>
 <td width=1%><img src="/cb3/mini_webmail3.gif" border=0></td>
 <th align=left nowrap><a href="$Server?page=WebMailIndex">WebMail</a></th>
 <td align=right><a href="$Server?page=WebMailSend&bpage=index"><img src="/cb3/write.gif" border=0></a> </td>
</tr></table>
' EndSub

' Sub MenuReserve
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99><td width=1%><img src="/cb3/mini_reserve3.gif" border=0></td><th align=left nowrap><a href="$Server?page=ReserveIndex">Facilities Scheduler</a></th><td><br></td></tr></table>
' EndSub

' Sub MenuAddress
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99><td width=1%><img src="/cb3/mini_address3.gif" border=0></td><th align=left nowrap><a href="$Server?page=AddressIndex">Address Book</a></th><td><br></td></tr></table>
' EndSub

' Sub MenuCabinet
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99><td width=1%><img src="/cb3/mini_cabinet3.gif" border=0></td><th align=left nowrap><a href="$Server?page=CabinetIndex">Cabinet</a></th><td><br></td></tr></table>
' EndSub
<!--
' Sub MenuWorkFlow
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ffcc99>
 <td width=1%><img src="/cb3/mini_workflow3e.gif" border=0></td>
 <th align=left nowrap><a href="$Server?page=WorkFlowIndex">WorkFlow</a></th>
 <td align=right><a href="$Server?page=WorkFlowPost"><img src="/cb3/write.gif" border=0></a> </td>
</tr></table>
' EndSub -->

' Sub MenuPersonal
<!-- Personal Box -->
'  Set $Menus = $TopPage.Menus
'  If $Menus.WebMail.Installed or $Menus.Where.Installed or $Menus.WorkFlow.Installed
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ff9966><td width=1%><img src="/cb3/mini_personal3.gif"></td><th align=left nowrap>Personal Box</th></tr></table>
<table width=100% border=0 cellspacing=0>
'   $ID = $Login.ID
'   If $Menus.WebMail.Installed and $WebMail.NewMails
 <tr><td nowrap><a href="$Server?page=WebMailIndex&rw=webmail"><img src="/cb3/recept.gif" border=0> You've got $WebMail.NewMails Email(s)</a>.</td></tr>
'   EndIf
'   If $Menus.Where.Installed and $Login.Where.Memos.Count
 <tr><td nowrap><a href="$Server?page=WhereHistory&id=$Login.ID&bpage=index"><img src="/cb3/recept.gif" border=0> You've got $Login.Where.Memos.Count memo(s)</a>.</td></tr>
'   EndIf
'   If $Menus.WorkFlow.Installed and $WorkFlow.WorkBoxes.$ID.Handle.Count
 <!-- <tr><td nowrap><a href="$Server?page=WorkFlowHandle&bpage=index"><img src="/cb3/recept.gif" border=0> You've got $WorkFlow.WorkBoxes.$ID.Handle.Count application(s) </a>to be processed.</td></tr> -->
'   EndIf
'   If $Menus.WorkFlow.Installed and $WorkFlow.WorkBoxes.$ID.Verify.Count
 <!-- <tr><td nowrap><a href="$Server?page=WorkFlowVerify&bpage=index"><img src="/cb3/recept.gif" border=0> You've got $WorkFlow.WorkBoxes.$ID.Verify.Count result(s) </a>of  application result(s).</td></tr>  -->
'   EndIf
</table><p>
'  EndIf
' EndSub

' Sub MenuWhere
<!-- Whereabouts -->
<form method=post action="$Server?"	>
<input type=hidden name=Page value=WhereEntry>
<input type=hidden name=ID value="$Login.ID">
<input type=hidden name=BPage value=index>
<input type=hidden name=Contact value="$Login.Tel">
<table width=100% border=0 cellspacing=0 cellpadding=1><tr bgcolor=#ff9966><td width=1%><img src="/cb3/mini_where3.gif" border=0></td><th align=left colspan=3 nowrap><a href="$Server?page=WhereIndex">Whereabouts</a></th></tr></table>
<table width=100% border=0 cellspacing=0><tr>
 <td nowrap><b>$Login.Name</b></td>
'  If $Login.Where.View
'   $t = $Login.Where.TimeStamp
 <td nowrap><a href="$Server?page=WhereEntry&id=$Login.ID&bpage=index">$Login.Where.View</a><br><font size=-1 color="$Login.Where.TimeColor"> $t.hour:$t.Minute00 $t.AMPM, $t.Day $t.month</font></td>
<!-- time -->
'  Else
 <td><a href="$Server?page=WhereEntry&id=$Login.ID&bpage=index">Not Registered Yet</a></td>
'  EndIf
'  If $Login.Where.Place != " IN "
 <td><font size=-1><input type=submit name=Place value=" IN "></font></td>
'  Else
 <td><font size=-1><input type=submit name=Place value=" OUT "></font></td>
'  EndIf
</tr></table>
</form>
' EndSub

' Sub MenuLink
<!-- Link -->
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#ff9966>
 <td width=1%><img src="/cb3/mini_link3.gif" border=0></td>
 <th align=left nowrap>Link Collection</th>
 <td align=right><a href="$Server?page=PersonalLinkBrowse">[Settings]</a> </td>
</tr></table>
'  Set $tp = $Login.TopPage
'  For Each $Link in $tp.Links
<li><a href="$Link.URL">$Link.Name</a>
'  Next
'  If $tp.LinkCommon != 0
'   If $tp.Links.Count and $Links.Count
<hr size=1>
'   EndIf
'   For Each $Link in $Links
<li><a href="$Link.URL">$Link.Name</a>
'   Next
'  EndIf
<p>
' EndSub

' Sub MenuBulletin
<!-- Bulletin Board -->
'  $Date = $TimeStamp.Date
'  $Tops = $Login.Bulletin.Tops
'  If ! $Tops and ($Tops != 0)
'   $Tops = 5
'  EndIf
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#99cc99>
 <td width=1%><img src="/cb3/mini_bulletin3.gif" border=0></td>
 <td nowrap><a href="$Server?page=BulletinIndex"><b>Bulletin Board</b></a> (New Arrival First)</th>
 <td align=right nowrap><a href="$Server?page=BulletinPost&bpage=index"><img src="/cb3/write.gif" border=0></a> <a href="$Server?page=BulletinPersonal">[Settings]</a> </td>
</tr></table>
'  If $Tops
<table border=0 cellspacing=0>
'   Set $r = $Bulletin.Articles.WhatsNew $Tops
'   For Each $a in $r
'    $Subject = $a.Subject
'    If ! $Subject
'     $Subject = "(Title Not Specified)"
'    EndIf
'    $t = $a.TimeStamp
 <tr valign=bottom><td><li><a href="$Server?page=BulletinArticle&aid=$a.ID&bpage=index">$Subject</a></td>
'    If $t.Date = $Date
  <td nowrap><font size=-1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;($t.hour:$t.Minute00 $t.AMPM, $a.Name)</font></td></tr><!-- time -->
'    Else
  <td nowrap><font size=-1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;($t.Day $t.month, $a.Name)</font></td></tr>
<!-- time -->
'    EndIf
'   Next
</table><p>
'  EndIf
' EndSub

' Sub MenuSearch
<!-- Search -->
<form method=get action="http://search.yahoo.com/bin/search">
<table width=100% border=0 cellspacing=0><tr bgcolor=#99cc99>
 <td width=1%><img src="/cb3/mini_search3.gif"></td>
 <td nowrap><b>Internet Search</b> <input name=p> <font size=-1><input type=submit value="Go Yahoo!"></font></td>
</tr></table>
</form>
' EndSub

' Sub MenuToDo
<!-- ToDo -->
'  $Tops = $Login.ToDo.Tops
'  If ! $Tops and ($Tops != 0)
'   $Tops = 5
'  EndIf
<form method=post action="$Server?">
<input type=hidden name=Page value=ToDoIndex>
<input type=hidden name=BPage value=index>
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#99cc99>
 <td width=1%><img src="/cb3/mini_todo3.gif" border=0></td>
 <td><a href="$Server?page=ToDoIndex"><b>ToDo List</b></a> (Earlier Deadline First)</td>
 <td align=right><a href="$Server?page=ToDoEntry&bpage=index"><img src="/cb3/write.gif" border=0></a> <a href="$Server?page=ToDoPersonal">[Settings]</a> </td>
</tr></table>
'  If $Tops
<table border=0 cellspacing=0 cellpadding=0>
'   $Login.ToDo.Items.Sort = limit
'   $Count = 0
'   For Each $Item in $Login.ToDo.Items
'    If ! $Item.Finish and ($Count != $Tops)
 <tr>
  <td width=60%><input type=checkbox name="$Item.ID" value=1 $Item.Finish.Checked><input type=hidden name="$Item.ID" value=0><a href="$Server?page=ToDoView&sort=$Sort&tid=$Item.ID&bpage=index">$_Item.SSet$$Item.Name$$_Item.SEnd</a></td><td width=10%></td>
  <td nowrap valign=bottom><font size=-1><a href="$Server?page=ToDoView&sort=$Sort&tid=$Item.ID&bpage=index">$_Item.SSet$$_Item.BSet$$Item.LimitDate.Day$ $Item.LimitDate.month$$_Item.BEnd$$_Item.SEnd</a></font></td><td width=10%></td><!-- time -->
  <td nowrap valign=bottom align=left><font size=-1>&nbsp;&nbsp;\\
'     For $i = 1 to $Item.Priority
*\\
'     Next
</font></td>
 </tr>
'     Inc $Count
'    EndIf
'   Next
</table>
<table border=0 width=100%><tr><td nowrap><font size=-1><input type=submit name=Submit value="Complete"></font> the checked ToDo item(s).</td><td></td><td nowrap align=right valign=bottom><a href="$Server?page=ToDoIndex">More ToDo Items here...</a></td></tr></table>
'  EndIf
</form>
' EndSub

' Sub MenuForum
<!-- Forum -->
'  $Date = $TimeStamp.Date
'  $Tops = $Login.Forum.Tops
'  If ! $Tops and ($Tops != 0)
'   $Tops = 5
'  EndIf
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#99cc99>
 <td width=1%><img src="/cb3/mini_forum3.gif" border=0></td>
 <td nowrap><a href="$Server?page=ForumIndex"><b>Forum</b></a> (Last Updated Subject First)</th>
 <td align=right><a href="$Server?page=ForumPersonal">[Settings]</a> </td>
</tr></table>
<table border=0 cellspacing=0>
'  For Each $FID in $Login.Forum.Subscribes
'   Set $f = $Forum.Forums.$FID
'   If $f
'    $GContians = 0
'    If $f.Private
'     $GID = $f.GID
'     $GContains = $Groups.$GID.Users.Contains $Login.ID
'    EndIf
'    If ! $f.Private or $GContains
 <tr valign=top><td><font color=#ff6633><img src="/cb3/bullet_b.gif" border="0" Alt="Bullet"> </font></td><td><a href="$Server?page=ForumSubject&fid=$f.ID&bpage=index">$f.Name</a></td></tr>
'     If $Tops
'      $Count = 0
'      For Each $s in $f.WhatsNew
'       If $Count != $Tops
 <tr valign=top><td></td><td><li><a href="$Server?page=ForumArticle&fid=$f.ID&sid=$s.ID&bpage=index">$s.Subject</a></td>
'        $AID = $s.Articles.Head
'        Set $a = $s.Articles.$AID
'        $t = $s.TimeStamp
'        If $t.Date = $Date
  <td nowrap><font size=-1>&nbsp;&nbsp;($a.Head$... $t.hour:$t.Minute00 $t.AMPM)</font></td><!-- time -->
'        Else
  <td nowrap><font size=-1>&nbsp;&nbsp;($a.Head$... $t.Day $t.month)</font></td><!-- time -->
'        EndIf
 </tr>
'        Inc $Count
'       EndIf
'      Next
'     EndIf
'    EndIf
'   EndIf
'  Next
</table><p>
' EndSub

' Sub MenuProject
<!-- Project -->
<table width=100% border=0 cellspacing=0 cellpadding=0><tr bgcolor=#99cc99>
 <td width=1%><img src="/cb3/mini_project3.gif" border=0></td>
 <th align=left nowrap><a href="$Server?page=ProjectIndex">Project</a></th>
 <td align=right><a href="$Server?page=ProjectPersonal">[Settings]</a> </td>
</tr></table>
<table border=0 cellspacing=0 width=100%>
'  For Each $PID in $Login.Project.Subscribes
'   Set $p = $Project.Projects.$PID
'   If $p
 <tr valign=top>
  <td nowrap><li><a href="$Server?page=ProjectView&pid=$PID&bpage=index">$p.Name</a></td><td width=3%></td><td nowrap>$p.Rate% Completed</td>
<td width=3%></td>
'    If $p.Status = 1
  <td nowrap><font color=#008000> On Schedule</font></td>
'    Elif $p.Status = 2
  <td nowrap><font color=#ff0000> Behind ($p.Late% Delay)</font></td>
'    Elif $p.Status = 3
  <td nowrap><font color=#ff0000><b> Urgent ! ($p.Late% Delay)</b></font></td>
'    Else
  <td><br></td>
'    EndIf
 </tr>
'   EndIf
'  Next
</table><p>
' EndSub