<% = AppTitle %>

<% If PackageMode = 0 Then %> <% End If %>

演習コード

演習名称

演習区分

会計期間

<% Dim Query Dim Content Dim ii, jj, iiDef ii = 0 iiDef = -1 Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) '「SYSCT21：サイバートレード会計演習マスター」は同一環境にサイバートレードが存在する場合のみ表示 If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA" And (UCase(Content.Fields("演習CD")) <> "SYSCT21" Or CT21variable = 1)) Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then '工業簿記演習は5以上で表示 If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then ' 2006.12.14 APPEND LINES( iiDef APPEND ) If Content.Fields("演習CD") = EnshuCD Then iiDef = ii End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If PackageMode = 0 Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End If End If Content.MoveNext Loop For jj = ii To 17 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If PackageMode = 0 Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %>

" & Content.Fields("演習CD") & "	" & HardWrap(Content.Fields("演習名称")) & "	" & Content.Fields("演習区分名称") & "	" & SetTimeYYYYMMDD(Content.Fields("会計開始日")) & "～" & SetTimeYYYYMMDD(Content.Fields("会計終了日")) & "