対象演習名 |
<% If GB_Admin = 2 Then %>
<% = EnshuMeisyo %>
<% Else %>
<% End If %>
|
ソート基準 |
|
<% If TmpEnshuKubun = "P" Then %>
学生氏名 |
<% Else %>
会社コード |
<% End If %>
会社名称 |
件名 |
本文 |
|
|
<% If Page > 0 Then %>
前 の ペ ー ジ を 表 示
|
<% End If %>
<%
Dim ii, jj, wcol
ii = 0
Query = "exec SPM演習状況メール送信一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & SortMode & "', '" & Keyword & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'ページ送り
For jj = 1 To PageRow * Page
If Not(Content.BOF Or Content.EOF) Then
Content.MoveNext
End If
Next
For ii = 1 To PageRow
If Not(Content.BOF Or Content.EOF) Then
' Do While Not(Content.BOF Or Content.EOF)
'同時同業マスター会社を除く
If HyojiFlg = "1" And TmpEnshuKubun = "P" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) = "" Then
'同時同業生徒会社のうち自社設定会社以外を除く
ElseIf HyojiFlg <> "1" And TmpEnshuKubun = "P" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" Then
Else
Dim KaisyaGakusei
'KaisyaGakusei = "" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")))
KaisyaGakusei = "" & Content.Fields("氏名")
'同時同業では削除されたユーザーの会社は表示しない
If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then
Else
Response.Write("" & vbCrLf)
If TmpEnshuKubun = "P" Then
Response.Write("" & KaisyaGakusei & " | " & vbCrLf)
Else
Response.Write("" & Content.Fields("会社CD") & " | " & vbCrLf)
End If
Response.Write("" & Content.Fields("会社名称") & " | " & vbCrLf)
Response.Write("" & HardWrap(Content.Fields("件名")) & " | " & vbCrLf)
Response.Write("" & HardWrap(Replace(Content.Fields("内容"), " ", "")) & " | " & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(" ")
End If
End If
Content.MoveNext
' Loop
End If
Next
If Not(Content.BOF Or Content.EOF) Then
%>
次 の ペ ー ジ を 表 示
|
<%
End If
%>
|
|