%
'
'
'
%>
<%
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("" & ShijyoCD & " | " & vbCrLf)
Response.Write("" & ShijyoMeisyo & " | " & 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
%>
|
<%
Response.Write(PrintFooter())
%>
|
|
<%
End Sub
%>