<% ' ' ' %> <% main() Sub main() Dim PageType Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter PageType = Request("PageType") 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 & "
取引日取引先商 品数 量単 価金 額" If PageType = "Shiire" Then TableHeader = TableHeader & "仕入" Else TableHeader = TableHeader & "売上" End If TableHeader = TableHeader & "
区分
" & vbCrLf TableFooter = TableFooter & "" & vbCrLf TableFooter = TableFooter & "
" & vbCrLf %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% = PrintScriptX %> <% Response.Write(ZairyoShiirecho(EnshuCD, KaisyaCD, KaisyaCD, "", "", "", "", "", "", "", "", "", "", 0, 1)) %> <% End Sub %>