% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim TyohyoKubun Dim KanriKubun KanriKubun = Request("KanriKubun") TyohyoKubun = Request("TyohyoKubun") %>