<% Dim Query Dim Content Dim ii, jj ii = 0 If SenpoFlg = 0 Then Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '','" & BunsyoSyuruiCD & "'" Else Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','','" & SenpoBunsyoSyuruiCD & "'" End If Set Content = OpenQuery(Query) Dim NextPageParam NextPageParam = "" Do While Not(Content.BOF Or Content.EOF) If Content.Fields("返信フラグ") <> 1 Then Dim SakuseiKaisyaCD SakuseiKaisyaCD = Content.Fields("作成会社CD") KozaKubun = Content.Fields("口座区分") If SenpoBunsyoSyuruiCD = "" Then ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Else If Content.Fields("返信フラグ") = 1 Then Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) End If End If If NextPageParam <> "" Then NextPageParam = NextPageParam & ";" End If NextPageParam = NextPageParam & SakuseiKaisyaCD & "," & KozaKubun & "," & SenpoBunsyoSyuruiCD & "," & Content.Fields("文書内容CD") ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If SenpoBunsyoSyuruiCD <> "" Then 'Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) End If ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 30 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write("") Next %>

" & Content.Fields("文書内容CD") & "	" & Content.Fields("処理日") & "	" & ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD ) & "	" & Content.Fields("納入期日") & "	" & ConvIntToMoney(Content.Fields("合計金額"), false, false) & "	" & Content.Fields("摘要") & "	") 'If SenpoBunsyoSyuruiCD = "" Then ' If Content.Fields("発行フラグ") = 1 Then ' Response.Write("済") ' End If 'Else ' If Content.Fields("開封フラグ") = 1 Then ' Response.Write("済") ' End If 'End If 'Response.Write("	") 'If Content.Fields("返信フラグ") = 1 Then ' Response.Write("済") 'End If 'Response.Write("