%
'
'
'
%>
<%
main()
Sub main()
Dim Kaishibi
Dim Syuryobi
Dim Query
Dim Content
Dim i
Dim TyohyoHeader, TableHeader, TableFooter
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
TableHeader = ""
TableHeader = TableHeader & "
" & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & "" & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & "" & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & " 取引日 | " & vbCrLf
TableHeader = TableHeader & " 摘 要 | " & vbCrLf
TableHeader = TableHeader & " 収 入 | " & vbCrLf
TableHeader = TableHeader & " 支 出 | " & vbCrLf
TableHeader = TableHeader & " 残 高 | " & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & "" & vbCrLf
TableFooter = ""
TableFooter = TableFooter & " " & vbCrLf
TableFooter = TableFooter & "" & vbCrLf
TableFooter = TableFooter & " | " & vbCrLf
TableFooter = TableFooter & "
" & vbCrLf
TableFooter = TableFooter & "
" & vbCrLf
%>
<% = HtmlHeader("sj3tyoboblack11") %>
<% = PrintScriptX %>
<% Response.Write(HojyoboGenkinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MA", "", 1, 1)) %>
<%
End Sub
%>