<% ' 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 = "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 = "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_groupsanka_view.asp?Kijun=" & Kijun & "&RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "&ErrMSG=更新終了しました") End Sub %>