%
'
'
'
%>
<%
main()
Sub main()
Dim Kaishibi
Dim Syuryobi
Dim Query
Dim Content
Dim i
Dim TyohyoHeader, TableHeader, TableFooter
Dim GinkoCD, KozaKubun, KozaBango
GinkoCD = Request("GinkoCD")
KozaKubun = Request("KozaKubun")
KozaBango = Request("KozaBango")
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 & " “E@—v | " & vbCrLf
TableHeader = TableHeader & " ¬ØŽèNO | " & vbCrLf
TableHeader = TableHeader & " —a@“ü | " & vbCrLf
TableHeader = TableHeader & " ˆø@o | " & vbCrLf
TableHeader = TableHeader & " ‘Ý@ŽØ | " & vbCrLf
TableHeader = TableHeader & " Žc@‚ | " & 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(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", GinkoCD, 1, 1, KozaKubun, KozaBango, "")) %>
<%
End Sub
%>