<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action Action = Request("Actin") Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim Syuryobi Syuryobi = GB_KaikeiSyuryobi Dim Title Title = "商品在庫確認" 'For Debug 'Response.Write("
") 'Response.Write("Syuryobi:" & Syuryobi & "
") %> <% = HtmlHeader("sj3tyoboblack") %>
<% Response.Write(HtmlDesign(5)) Response.Write(HttpL1(1)) ' Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", "在庫照会", "", "", "", "", "")) ' Response.Write(HttpL2("" ,"", "" , "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Title, "")) %>
<% = HtmlFooter %> <% End Sub %>