<% ' ' ' %> <% 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 TableFooter = TableFooter & " " & vbCrLf TableFooter = TableFooter & "

" & 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 & " Žæˆø“ú “E�@—v �¬�ØŽèNO —a�@“ü ˆø�@�o ‘Ý�@ŽØ Žc�@�‚ " & vbCrLf TableFooter = TableFooter & "" & vbCrLf TableFooter = TableFooter & "

" & vbCrLf %> <% = HtmlHeader("sj3tyoboblack11") %> <% = PrintScriptX %> <% Response.Write(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", GinkoCD, 1, 1, KozaKubun, KozaBango, "")) %> <% End Sub %>