<% ' %> <% main() Sub main() Dim KitakuNo '寄託受付番号 Dim EnshuName Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加 テーブルにもフィールドを追加 End If '寄託利用状態を整数化（070207小野） If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If %> <% = HtmlHeader("") %>
<% 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_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) If Kitakuriyou > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fu_kitaku.asp?Action=1')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("寄託受付", "一覧表示")) %>
<% = HtmlFooter %> <% End Sub %>