<% ' ' ' %> <% main() Dim CSVOutput 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 DenpyoNo DenpyoNo = Request("DenpyoNo") Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("sj3tyoboredPRT10") %> <% = PrintScriptX %> <% If RouteType = "Hakushi" Then Response.Write(TyoboShiwaketyo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", -1, 1, "", "", "")) Else Response.Write(TyoboShiwaketyo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 0, 1, "", "", "")) End If %> <% End Sub %>