<% ' ' %> <% main() Sub main() Dim DenpyoNo, Torihikibi, DenpyoTekiyo Dim PageType Dim KanjyoCD(10) Dim Kanjyomei(10) Dim Kingaku(10) Dim TekiyoCD(10) Dim Tekiyo(10) Dim Gokei,i Dim DenpyoKubun Dim RouteType DenpyoNo = Request("DenpyoNo") PageType = Request("PageType") RouteType = Request("RouteType") If PageType = "Nyukin" Then DenpyoKubun = "D1" Else DenpyoKubun = "D2" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = DenpyoNyusyukin(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>