<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Action Action = Request("Action") Dim PageType PageType = Request("PageType") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD 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 %> <% = KouriRyoshusho(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>