<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD Dim RouteType RouteType = Request("RouteType") SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = GinkoUketsukeSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1) %> <% End Sub %>