<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim iiDef Dim KozaBango KozaBango = Request("KozaBango") Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "口座一覧" Dim GinkoCD, BackGinkoCD If Left(GB_GyosyuKubun, 1) = "B" Then GinkoCD = KaisyaCD PageType = "口座一覧" Else KaisyaCD = KaisyaCD GinkoCD = Request("GinkoCD") PageType = "口座残高照会" End If BackGinkoCD = Request("GinkoCD") %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim RowBreakNum, RowCount Dim Page RowBreakNum = 40 RowCount = 0 Dim Query Dim Content Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', '', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>

<% Response.Write(PrintHeader(Page,PageType)) %> <% Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Content.MoveNext Loop %> 口座区分 口座番号 会社名称 残高 暗証番号 " & ConvKubunMeisyo("口座区分", Content.Fields("口座区分")) & " " & Content.Fields("口座番号") & " " & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("会社CD")) & " " & ConvIntToMoney(Content.Fields("残高"), false, false) & "  " & Content.Fields("暗証番号") & " <% Response.Write(PrintFooter()) %>

<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>