' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  If $Mode or ( $Mode = 0 )
<!--#include file="PartsChangeCondition.html"-->
'   $System.ContentType
'  Else
'   $System.Redirect $Server?page=ManageMailCustomerRule&wid=$WID&id=$ID
'   $Command.Mail.AddCustomerRule
'   Exit
'  EndIf
' EndIf
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
' Call cmHtmlHead
<!--#include file="PartsMailCustomerRuleSet.html"-->
' $CaptionTitle = "顧客情報の抽出条件の追加"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageMailCustomerRule&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "顧客登録の補助設定"
' $System.CloseDatabase "mw"
' Set $MailProfile = $Command.Mail.GetMailTop $ID
<form name="CustomerRule" method="post" action="$Server?" onSubmit="return onSubmit( this );">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageMailCustomerRuleAdd">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>
追加する顧客情報の抽出条件の情報を設定してください。<br>
'  Call formNote 1
</p>
' Call setCustomerRule
' Call formCommit "追加する" "キャンセルする" "Mode.value='';" "location.href='$BackURL.JSEscape';"
</form>
' Call cmChildFooter $BackURL "顧客登録の補助設定へ"
</body>
</html>