<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim TyohyoHeader, TableHeader, TableFooter Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") Dim AutoFlg AutoFlg = 0 If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim PrintFlg PrintFlg = 1 %> <% = HtmlHeader("sj3tyoboblack11") %> <% = PrintScriptX %> <% Response.Write(TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 0, 1, Kaishibi, Syuryobi, "")) %> <% End Sub %>