<% ' ' ' %> <% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount, MaxCount main() Sub main() Dim tmp Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg Dim TanaorosiKubun Dim Query Dim Content ' Dim i Dim RowCount, RowBreakNum Dim TyohyoHeader, TableHeader, TableFooter RowBreakNum = 10 RowCount = 0 Dim bExistSyuseiKinyu bExistSyuseiKinyu = 0 Query = "exec SPK“`•[�WŒvŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then bExistSyuseiKinyu = 1 End If Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") TanaorosiKubun = Request("TanaorosiKubun") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim PrintFlg PrintFlg = 1 %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Response.Write(TyoboTaisyakuTaisyohyoHokokusyo(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 0, 1, Kaishibi, Syuryobi, "")) %> <% End Sub %>