' $System.Access Post
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
' $CaptionTitle = "除外一覧"
</script>
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=PostView&wid=$WID&vid=$VID&pcid=$PCID&bpt=$BPT&tab=to"
' $System.SetParameter URLPostIndex "$Server?page=PostIndex&wid=$WID&vid=$VID"
' Call cmHeader $CaptionTitle $URLPostIndex $WorkSpace.Post.Name $BackURL "配信情報の詳細"
' $System.CloseDatabase "mw"
' Set $pc = $Post.Cards.$PCID
<p>
<table border="1" cellspacing="0" cellpadding="4" bgcolor="#ffffff">
<tr class="title"><td width="300" nowrap><b>会社名</b></td><td width="300" nowrap><b>名前</b></td></tr>
' For Each $RCID in $pc.RemoveCIDs
'  Set $c = $CIndex.Cards.$RCID
'  If ! $c
'   Continue
'  EndIf
<tr><td>
'  If $c.CompanyID != -1
'   $CompanyID = $c.CompanyID
'   Set $Company = $CIndex.Cards.$CompanyID
'   If $Company
<img src="$IMG_PATH/company20.png">$Company.Name
'   EndIf
'  EndIf
<br></td><td>
'  If $WorkSpace.Customer.Disable
'   Call cmImage "person20.png"
$c.Name
'  Else
'   Call cmLink $c.Name "person20.png" "$Server?page=CustomerView&wid=$WID&vid=$VID&cid=$RCID&dbid=$c.DBID" 0 1
'  EndIf
</td></tr>
' Next
</table>
</p>
' If $VID
'  Call cmChildFooter $BackURL "配信情報の詳細へ"
' Else
'  Call cmFooter $BackURL "配信情報の詳細へ"
' EndIf
</body>
</html>