<%
'
'
'
%>
<%
main()
Sub main()
Dim Kaishibi
Dim Syuryobi
Dim Query
Dim Content
Dim TyohyoHeader, TableHeader, TableFooter
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
Dim AutoFlg
AutoFlg = 0
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
Dim PrintFlg
PrintFlg = 1
%>
<% = AppTitle %>
<% = PrintScriptX %>
<%
Response.Write(TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 0, 1, Kaishibi, Syuryobi, ""))
%>
<%
End Sub
%>