<% ' %> <% main() Sub main() Dim SyoriYMD Dim Query Dim Content Dim Action Dim TorihikisakiCD Dim SeikyusakiCD If Not(SessionCheck()) Then Exit Sub End If SyoriYMD = Request("SyoriYMD") SeikyusakiCD = Request("SeikyusakiCD") Action = Request("Action") If SyoriYMD = "" Then SyoriYMD = GB_KaikeiSyuryobi End If Dim ShowNoSend ShowNoSend = Request("ShowNoSend") %> <% = 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')", "運送費請求書", "", "", "", "", "")) Response.Write(HttpL3( "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "","", "", "", "", "", "")) If ShowNoSend = "1" Then Response.Write(HttpL3_2("追加", "tblbtn('fu_seikyusyudo.asp')", "請求書作成済みを非表示", "tblbtn( 'fu_seikyu_ichiran1.asp?SyoriYMD=" & SyoriYMD & "');", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn('fu_seikyusyudo.asp')", "請求書作成済みを表示", "tblbtn( 'fu_seikyu_ichiran1.asp?SyoriYMD=" & SyoriYMD & "&ShowNoSend=1');", "", "", "", "", "", "")) End If Response.Write(HttpL4("運送費請求先一覧", "")) Response.Write(HttpL5("納品請求書からの一覧です")) %>
　 <% = HtmlFooter %> <% End Sub %>