<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuName Dim Query Dim Content %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(1)) 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("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fu_unso.asp');", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("運送費請求書・領収書", "一覧表示")) %>
<% = HtmlFooter %> <% End Sub %>