% ' ' %> <% 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 %>