<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim DbKarikataKingaku, DbKashikataKingaku Dim RouteType RouteType = Request("RouteType") %>

<% If RouteType = "Hakushi" Then Response.Write(TyoboShiwakenikkityo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", -1, 1, "", "", "")) Else Response.Write(TyoboShiwakenikkityo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 0, 1, "", "", "")) End If %>

<% End Sub %>