<% ' ' ' %> <% Dim TyohyoHeader, TableHeader, TableFooter Dim Sakuseibi Dim EnshuName Dim RowCount, RowBreakNum , PageCount main() Sub main() Dim Content Dim Query Dim i RowBreakNum = 10 RowCount = 0 PageCount = 0 Sakuseibi = SetDate(Date(), 2) '演習名称ＧＥＴ EnshuName = ConvEnshuMeisyo(EnshuCD) %> <% = HtmlHeader("") %> <% = PrintScriptX %>

<% Response.Write(PrintHeader(0, "市場マスター")) %> <% Dim ii, jj ii = 0 Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Dim ShijyoCD, ShijyoMeisyo Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ShijyoCD = Content.Fields("市場CD") ShijyoMeisyo = Content.Fields("市場名称") Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop For jj = ii To 15 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %> 市場コード 市場名称 " & ShijyoCD & " " & ShijyoMeisyo & " <% Response.Write(PrintFooter()) %>

<% End Sub %>