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