<% ' ' ' %> <% main() Sub main() Dim BunsyoSyuruiCD, SyoruiMei, SyoriMongon BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim RouteType RouteType = Request("RouteType") Dim Title Title = Request("Title") %> <% = AppTitle %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) ' Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", Title, "", "", "", "", "")) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "白紙帳票", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(SyoruiMei , "")) %> <% = HtmlFooter %> <% End Sub %>