<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Query Dim Content Dim ii, jj, iiSyukeihyoSelect, ShiwakeData, iiMototyoSelect, MototyoData Dim SokanjyoMototyoCD Dim DbKanjyoCD, DbShiwakeData, DbDenpyoTekiyo, DbTekiyo1, DbTekiyo2 Dim DbKanjyoMeisyo, DbMototyo Dim DbDenpyoKubun, DbDenpyoNo , DbDenpyoSEQ Dim DbTekiyo, DbTorihikibi, DbShityo, DbZandaka, DbMototyoData Dim DbKarikataKingaku, DbKashikataKingaku Dim DbSokanjyoMototyoCD Dim KanjyoCD Dim TekiyoCD Dim ViewTorihikibi Dim DenpyoKubun, DenpyoNo, DenpyoSEQ KanjyoCD = Request("KanjyoCD") TekiyoCD = Request("TekiyoCD") ViewTorihikibi = Request("ViewTorihikibi") DenpyoKubun = Request("DenpyoKubun") DenpyoNo = Request("DenpyoNo") DenpyoSEQ = Request("DenpyoSEQ") Dim RouteType RouteType = Request("RouteType") ' If ViewTorihikibi = "" Then ' ViewTorihikibi = GB_KaikeiKaishibi ' End If Dim PageType PageType = "総勘定元帳" %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% = PrintScriptX %> <% Response.Write(TyoboSokanjyoMototyoH(EnshuCD, KaisyaCD, KaisyaCD, "LD", KanjyoCD, 1, 1, TekiyoCD, Syuryobi, "")) %> <% End Sub %>