<% ' ' ' %> <% main() Sub main() Dim PageType Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter PageType = Request("PageType") Dim Label If PageType = "Uketori" Then Label = "受取手形記入帳" Else Label = "支払手形記入帳" End If Dim Title, BunsyoSyuruiCD If PageType = "Uketori" Then Title = "受取手形記入帳" BunsyoSyuruiCD = "MH" Else Title = "支払手形記入帳" BunsyoSyuruiCD = "MI" End If 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 PageType = "Uketori" 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("sj3tyoboredPRT09") %> <% = PrintScriptX %> <% Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, BunsyoSyuruiCD, "", 0, 1)) %> <% End Sub %>