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

<% If RouteType = "syatyo" Then %> <% = Teikan(EnshuCD, GB_KaisyaCD, RouteType, 1) %> <% Else %> <% = Teikan(EnshuCD, GakuseiNo, RouteType, 1) %> <% End If %>

<% End Sub %>