<%
'
'
'
%>
<%
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")
%>
<% = AppTitle %>
<% = PrintScriptX %>
<% 'Response.Write(TyoboShiwakenikkityoJidou(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 1, 1, "", "", "")) %>
<% Response.Write(TyoboShiwaketyo(EnshuCD, KaisyaCD, KaisyaCD, "LA", "", 1, 1, "", "", Order & ";" & ShiwakeFrom & ";" & ShiwakeTo)) %>
<%
End Sub
%>