<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim GinkoCD, BunsyoSyuruiCD, BunsyoNaiyoCD Dim Syoribi, AnsyoBango, Tekiyo , SenpoTekiyo Dim TouzaKarikoshiKingaku Dim SenpoFlg, TorihikisakiCD, SenpoBunsyoSyuruiCD, SenpoBunsyoNaiyoCD Dim KozaKubun, Kingaku Dim KozaBango Dim FurikomisakiKozaBango, FurikomisakiGinkoCD, FurikomisakiKozaKubun, Tesuryo 'BD Dim RouteType Dim TegataFuridashininCD, TegataSyuruiKubun, TegataNo Dim TegataShiharaiKijitsu Dim WaribikiRiritsu, WaribikiRiritsuTekiyoNissu, WaribikiRisokuKingaku Dim SenpoSyoribi Dim UketsukeKubun Dim FurikomisakiKoza Dim Tegata Dim SakujyoFlg RouteType = Request("RouteType") GinkoCD = Request("GinkoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") SenpoFlg = Request("SenpoFlg") TorihikisakiCD = Request("TorihikisakiCD") Dim Title If BunsyoSyuruiCD= "BA" Then Title = "口座開設" ElseIf BunsyoSyuruiCD= "BB" Then Title = "預入" ElseIf BunsyoSyuruiCD= "BC" Then Title = "引出" ElseIf BunsyoSyuruiCD= "BD" Then Title = "振込" ElseIf BunsyoSyuruiCD= "BE" Then Title = "小切手入金" ElseIf BunsyoSyuruiCD= "BF" Then Title = "手形取立" ElseIf BunsyoSyuruiCD= "BG" Then Title = "手形割引" ElseIf BunsyoSyuruiCD= "BH" Then Title = "残高証明" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = GinkoSyorui(EnshuCD, KaisyaCD, KaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>