<% ' ' ' 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("" & vbCrLf) Response.Write("" & 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 %>
" & Content.Fields("摘要CD") & "" & Content.Fields("摘要") & "
  
<% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>