<% Dim ii, RowCnt, DataCnt, iiDef RowCnt = 0 iiDef = -1 Query = "exec SPLメッセージ" & Label & "一覧 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'" Query = Query & ", " & MES_Admin Query = Query & ", '" & MES_User & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields(Label & "Seq") = Seq Then iiDef = RowCnt End If Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) ' Response.Write(" " & vbCrLf) ' Response.Write(" " & vbCrLf) If Mode = "Recv" Then Response.Write(" " & vbCrLf) End If Response.Write("") RowCnt = RowCnt + 1 Content.MoveNext Loop For ii = RowCnt + 1 To 20 Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) If Mode = "Recv" Then Response.Write(" " & vbCrLf) End If Response.Write("") Next %>

" & Content.Fields("送信日時") & "	" & Content.Fields("表題") & "	" & vbCrLf) ' If "" & Content.Fields("対象演習CD") <> "" Then Response.Write(GetEnshuName(Content.Fields("対象演習CD"))) End If ' Response.Write("	" & vbCrLf) ' If "" & Content.Fields("対象グループCD") <> "" Then Response.Write(GetGroupName(Content.Fields("対象グループCD"))) End If ' Response.Write("	" & vbCrLf) If "" & Content.Fields("未読フラグ") = "1" Then Response.Write("未読") End If Response.Write("