' $System.Access Login
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "ログインするメールスペースの選択"
' Call cmHead $CaptionTitle
</head>
<body>
' Call cmHeaderView 1 $CaptionTitle
<p>ログインするメールスペースを選択してください。</p>
' Sub systemLocation $ws
'  $System.SetParameter URL "$LocationPath$$Server?wid=$ws.ID"
<td valign="top">$URL</td>
<td>
'  If $Env.IsMSIE
'   Call cmButton "お気に入りに追加" "window.external.AddFavorite('$URL','$ws.Name');"
'  EndIf
<br></td>
' EndSub
<p>
<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
<tr class="title"><td nowrap>メールスペース名</td><td nowrap>メールアプリケーション</td><td nowrap>担当メール</td><td nowrap>処理メール</td><td colspan="2" nowrap>アクセスURL</td>
' $RowNum = 0
' For Each $ws in $Profile.WorkSpaces
'  Inc $RowNum
'  $Remainder = $Command.Math.Modulus $RowNum 2
'  If $Remainder = 0
'   $RowClass = "evenRow"
'  Else
'   $RowClass = "oddRow"
'  EndIf
'  $ws.Total
<tr class="$RowClass"><td valign="top" nowrap>
'  Call cmLink $ws.Name "mailspace32.png" "$Server?wid=$ws.ID"
</td>
'  $First = 1
'  For Each $m in $ws.Mails
'   If ! $First
</tr><tr class="$RowClass"><td><br></td>
'   EndIf
<td valign="top" nowrap>$m.Name</td>
<td valign="top" nowrap>$m.TotalUsers 件</td>
<td valign="top" nowrap>$m.TotalInbox 件</td>
'   If $First
'    $First = 0
'    Call systemLocation $ws
'   Else
<td colspan="2"><br></td>
'   EndIf
'  Next
'  If $First
<td colspan="3"><br></td>
'   Call systemLocation $ws
'  EndIf
</tr>
' Next
</table>
</p>
' Call cmFooter "javascript:history.back();" "戻る"
</body>
</html>