<% ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName Dim Query Dim Content Dim ShijyoCD2 ShijyoCD2 = Request("ShijyoCD") If Not(SessionCheck()) Then Exit Sub End If '演習名称ＧＥＴ EnshuName = ConvEnshuMeisyo(EnshuCD) Dim RouteType RouteType = Request("RouteType") Dim MasterEnshu Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MasterEnshu = Content.Fields("マスター演習") End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("市場選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", "市場マスター", "", "", "")) Response.Write(HttpL3("照会", "syokaibtn()" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) End If If GB_Admin >= 1 Then Response.Write(HttpL3_1("照会", "syokaibtn()","印刷", "PrintoutReal()","", "", "", "", "", "")) 'マスター演習には追加出来ないよう修正（070621小野） If MasterEnshu <> "1" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shijyo.asp?Action=1')", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()","", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("市場マスター", "一覧表示")) If MasterEnshu = "1" Then Response.Write(HttpL5("マスター演習に設定されているため市場を追加出来ません")) End If %>

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

対象演習名

<%= EnshuName %>

市場コード

市場名称

<% Dim ii, jj, iiDef ii = 0 iiDef = -1 Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Dim ShijyoCD, ShijyoMeisyo Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If ShijyoCD2 = Content.Fields("市場CD") Then iiDef = ii End If ShijyoCD = Content.Fields("市場CD") ShijyoMeisyo = Content.Fields("市場名称") Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop For jj = ii To 30 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

" & ShijyoCD & "	" & ShijyoMeisyo & "

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