<% ' ' ' %> <% main() Sub main() Dim PageType Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter PageType = Request("PageType") Dim Title, BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") 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 If BunsyoSyuruiCD = "MH" Then TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf Else TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf End If 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 %> <% = HtmlHeader("sj3tyoboblacks") %> <% = PrintScriptX %> <% Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, BunsyoSyuruiCD, "", 1, 1)) %> <% End Sub %>