<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ShijyoMeisyo Dim ShijyoCD Dim EnshuName Dim Query, Content Dim Action Dim ErrMsg Dim NRflg Action = Request("Action") ShijyoCD = Request("ShijyoCD") ErrMsg = Request("ErrMsg") NRflg = Request("nr") '演習名称ＧＥＴ EnshuName = ConvEnshuMeisyo(EnshuCD) If NRflg = "r" then ShijyoCD = Request("ShijyoCD") ShijyoMeisyo = Request("ShijyoMeisyo") Else Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("市場CD") ShijyoMeisyo = Content.Fields("市場名称") End If End If %> <% = AppTitle %>
<% 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 & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_Shijyo_ichiran.asp')", "", "", "", "", "", "", "", "")) If Action = 1 Then Response.Write(HttpL4("市場マスター", "追加")) Else Response.Write(HttpL4("市場マスター", "修正")) End If Response.Write(HttpL5(ErrMsg)) %>
<% = HtmlFooter %> <% End Sub %>