%
'
'
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Label
Label = "摘要管理"
If PackageMode = 1 Then
Label = "摘要マスター"
End If
Dim EnshuName
Dim TyohyoHeader, TableHeader, TableFooter
Dim Sakuseibi
Dim RowCount, RowBreakNum , PageCount
Dim Content, Query
%>
<% = HtmlHeader("") %>
<% = PrintScriptX %>
<%
Response.Write(PrintHeader(0, Label))
%>
|
<%
Dim ii, jj
ii = 0
Query = "exec SPM摘要一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("" & vbCrLf)
Response.Write("" & Content.Fields("摘要CD") & " | " & vbCrLf)
Response.Write("" & Content.Fields("摘要") & " | " & vbCrLf)
ii = ii + 1
Response.Write(" ")
Content.MoveNext
Loop
For jj = ii To 30
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
%>
|
<%
Response.Write(PrintFooter())
%>
<% = HtmlFooter %>
<%
End Sub
%>