
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：演習参加者更新
'	作成日	：2009/6/17
'	作成者	：小野
'	目的	：演習参加者の登録
'################################################
'-->

main()

Sub main()

	Dim Group								'演習コード、参加グループコード
	Dim GroupCD

	Dim Query
	Dim Content
	Dim Content2
	Dim Ng , ErrMSG , rsts
	Dim TmaxCnt , ix
	Dim RouteType
	RouteType = Request("RouteType")

	'動作モード
	Dim Kijun
	Kijun = Request("Kijun")

	Group = Request("GroupCD")
	GroupCD = split(Group,",")
	TmaxCnt = Ubound(GroupCD)

	Dim db
	Set db = InitQuery()

	For ix = 0 to TmaxCnt
		If Kijun = "User" Then	'ユーザー単位での追加の場合はGroupCD(ix)がユーザーIDとなる
			Query = "exec SPM演習参加ユーザー挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GroupCD(ix) & "'"
		ElseIf Kijun = "Group" Then	'グループ基準時はEnshuCDとGroupCD(ix)が入れ替わる
			Query = "exec SPM演習参加グループ挿入 '" & GB_SystemCD & "', '" & GroupCD(ix) & "', '" & EnshuCD & "'"
		Else
			Query = "exec SPM演習参加グループ挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GroupCD(ix) & "'"
		End If
DebugQuery(Query)
		Set Content = ExecQuery(db, Query)
	Next


	'演習管理者の場合はここで当該演習管理者以外の者が登録したグループまたはユーザーを再登録する（現在非利用）
	If GB_Admin = "2" Then
		Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
		Set Content = ExecQuery(db, Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("作成者ID") <> GB_GakuseiNo Then
				Query = "exec SPM演習参加グループ挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Content.Fields("学生グループCD") & "'"
				Set Content2 = ExecQuery(db, Query)
			End If
			Content.MoveNext
		Loop
	End If


	If Kijun = "User" Then	'ユーザー単位での追加
		Query = "exec SPM演習参加ユーザー更新 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"
	ElseIf Kijun = "Group" Then	'グループ基準時はEnshuCD=グループCDなので第3引数になる
		Query = "exec SPMグループ参加演習更新 '" & GB_SystemCD & "', '', '" & EnshuCD & "'"
	Else
		Query = "exec SPM演習参加グループ更新 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"
	End If
DebugQuery(Query)
	Set Content = ExecQuery(db, Query)



	Response.Redirect("fm_enshusanka_view.asp?Kijun=" & Kijun & "&RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "&ErrMSG=更新終了しました")

End Sub
%>