<% ' ' ' %> <% 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) '演習名称GET 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 %>