% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "" Dim TyohyoKubun, KanriKubun TyohyoKubun = Request("TyohyoKubun") KanriKubun = Request("KanriKubun") Dim RouteType RouteType = Request("RouteType") Dim GyoshuKubun GyoshuKubun = Request("GyoshuKubun") If GyoshuKubun = "" Then GyoshuKubun = "S" End If Dim SaimokuKubun SaimokuKubun = Request("SaimokuKubun") If SaimokuKubun = "" Then SaimokuKubun = "%" End If %>
|