<% ' ' %> <% main() Sub main() Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim KouriHanbaiF Dim ErrMsg If Not(SessionCheck()) Then Exit Sub End If '演習テーブルを読み込み「小売販売の有無」情報を取得 Query = "SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("演習CD") = EnshuCD Then KouriHanbaiF = Content.Fields("小売販売有無") EnshuCD = Content.Fields("演習CD") End If Content.MoveNext Loop ' ErrMsg = "表のタイトル行をクリックすることで表示順を変更できます" %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin = 2 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況一覧", "", "" , "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況一覧", "", "" , "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) If KouriHanbaiF = 1 Then Response.Write(HttpL3_2("小売販売", "tblbtn( '/" & HomeAlias & "/user/bk/kouri/kh_kouri_ichiran.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=HU&PageType=ichiran&RouteType=admin')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("演習状況一覧", "照会")) Response.Write(HttpL5(ErrMsg)) %>
  <% = HtmlFooter %> <% End Sub %>