<% = AppTitle %>

<% ' %> <% main() Sub main() Dim ErrMSG Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin = 2 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", "演習参加グループ", "", "", "", "", "", "", "", "", "")) ElseIf Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu1.asp')", "演習参加グループ", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", "演習参加グループ", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If EnshuCD <> "" Then Response.Write(HttpL3_1("保存", "UpdateCheck()", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("演習参加グループ管理", "")) Response.Write(HttpL5(ErrMSG)) %>

対象演習名

<% If GB_Admin = 2 Then %> <% = EnshuMeisyo %> <% Else %> <% End If %>

<% If EnshuCD <> "" Then %>

この演習に参加していないグループ

この演習に参加しているグループ

(ctrl キーで複数選択可能）

<% Else %>

<% End If %>

<% = HtmlFooter %> <% End Sub %>