% ' ' %> <% main() Sub main() Dim KanriKubun, EnshuCD, TyohyoKubun Dim RouteType RouteType = Request("RouteType") KanriKubun = Request("KanriKubun") TyohyoKubun = Request("TyohyoKubun") %> <% = HtmlHeader("") %>
このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。