<% ' ' %> <% main() Sub main() Dim RouteType RouteType = Request("RouteType") Dim BunsyoNaiyoCD, BunsyoSyuruiCD, SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") ' For Debug 'Response.Write("GB_SystemCD:" & GB_SystemCD & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("KaisyaCD:" & KaisyaCD & "
") 'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
") 'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") 'Response.Write("RouteType:" & RouteType & "
") %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = KouriHanbai(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>