<% ' ' %> <% main() Sub main() Dim RouteType Dim BunsyoNaiyoCD Dim Mode Dim ii Dim Query Dim Content RouteType = Request("RouteType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Mode = Request("Mode") %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = SeizouSashizusho(EnshuCD, KaisyaCD, BunsyoNaiyoCD, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>