% ' ' %> <% main() Sub main() Dim Kaishibi, Syuryobi, KanjyoCD, TekiyoCD, RouteType Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") KanjyoCD = Request("KanjyoCD") TekiyoCD = Request("TekiyoCD") RouteType = Request("RouteType") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Url Url = Request.ServerVariables("URL") %> <% = HtmlHeader("") %>
<% End Sub %>