<% ' ' ' %> <% Dim CSVOutput CSVOutput = "" main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim ii, jj Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim Order Order = Request("Order") Dim ShiwakeFrom ShiwakeFrom = Request("ShiwakeFrom") Dim ShiwakeTo ShiwakeTo = Request("ShiwakeTo") %> <% = HtmlHeader("sj3tyobored") %> <% = PrintScriptX %> <% 'Response.Write(TyoboShiwakenikkityoJidou(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 1, 1, "", "", "")) %> <% Response.Write(TyoboShiwaketyo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 1, 1, "", "", Order & ";" & ShiwakeFrom & ";" & ShiwakeTo)) %> <% End Sub %>