
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：メール送信拒否設定
'	作成日	：2009/10/13
'	作成者	：小野
'	目的	：ユーザー単位のメール送信許可/拒否設定を行う。
'	概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuCD
	EnshuCD = Request("EnshuCD")

	Dim KyohiUserID
	KyohiUserID = Request("KyohiUserID")

	Dim Query
	Dim Content

'Response.Write(KyohiUserID)
'Exit Sub

	Dim Cnt

	Query = "exec SPV演習メール拒否削除 '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	If KyohiUserID <> "" Then

		KyohiUserID = Split(KyohiUserID, ",")	'チェックボックス配列を分解

		For Cnt = 0 To UBound(KyohiUserID)
			Query = "exec SPV演習メール拒否登録 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Trim("" & KyohiUserID(Cnt)) & "'"
			Set Content = OpenQuery(Query)
		Next

	End If


	Response.Redirect("fm_enshucontrol05.asp?EnshuCD=" & EnshuCD)

End Sub
%>