% ' ' %> <% 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 %>