|
<% If Mode = "Send" Then %>
送信先
<% Else %>
送信元
<% End If %>
|
|
<%
Dim ii, RowCnt
'送信先表示
If Mode = "Send" Then
RowCnt = 0
Dim UserIDList
Query = "exec SPLメッセージ送信先一覧 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'"
Query = Query & ", " & MES_Admin '送信ユーザー区分
Query = Query & ", '" & MES_User & "'" '送信ユーザーID
Query = Query & ", " & Seq '送信Seq
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
'管理者モード
If MES_Admin > 0 Then
Do While Not(Content.BOF Or Content.EOF)
If UserIDList <> "" Then
UserIDList = UserIDList & ","
End If
UserIDList = UserIDList & Content.Fields("受信ユーザーID")
Content.MoveNext
Loop
Set Content = GetUserNameList(UserIDList)
Do While Not(Content.BOF Or Content.EOF)
Response.Write("" & vbCrLf)
Response.Write(" | ")
Response.Write(" " & Content.Fields("ユーザー氏名") & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
RowCnt = RowCnt + 1
Content.MoveNext
Loop
For ii = RowCnt + 1 To 18
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
'ユーザーモード
Else
Response.Write("" & vbCrLf)
' If "" & Content.Fields("受信ユーザーID") <> "" Then
Response.Write(" ")
Response.Write(" 先 生" & vbCrLf)
' If Content.Fields("受信ユーザー区分") = 3 Then
' Response.Write(" " & GetGroupName(Content.Fields("受信ユーザーID")) & "
のグループ管理者" & vbCrLf)
' Else
' Response.Write(" " & GetEnshuName(Content.Fields("受信ユーザーID")) & "
の演習管理者" & vbCrLf)
' End If
' Else
' Response.Write(" | ")
' Response.Write(" システム管理者" & vbCrLf)
' End If
Response.Write(" | " & vbCrLf)
Response.Write(" ")
End If
End If
'送信元表示
Else
If Not(ContentMes.BOF Or ContentMes.EOF) Then
Response.Write("" & vbCrLf)
'管理者モード
If MES_Admin > 0 Then
Response.Write(" | ")
Response.Write(" " & GetUserName(ContentMes.Fields("送信ユーザーID")) & "" & vbCrLf)
'ユーザーモード
Else
' If "" & ContentMes.Fields("送信ユーザーID") <> "" Then
Response.Write(" | ")
Response.Write(" 先 生" & vbCrLf)
' If ContentMes.Fields("送信ユーザー区分") = 3 Then
' Response.Write(" " & GetGroupName(ContentMes.Fields("送信ユーザーID")) & "
のグループ管理者" & vbCrLf)
' Else
' Response.Write(" " & GetEnshuName(ContentMes.Fields("送信ユーザーID")) & "
の演習管理者" & vbCrLf)
' End If
' Else
' Response.Write(" | ")
' Response.Write(" システム管理者" & vbCrLf)
' End If
End If
Response.Write(" | " & vbCrLf)
Response.Write(" ")
End If
End If
%>
|
|
<% If Not(ContentMes.BOF Or ContentMes.EOF) Then %>
|
<% = ContentMes.Fields("表題") %>
|
|
<% = ContentMes.Fields("本文") %>
|
<% End If %>
|
|