<%
If PageType = "受信メール" Then
Response.Write("受信日")
ElseIf PageType = "送信メール" Then
Response.Write("発信日")
End If %>
<%
If PageType = "受信メール" Then
Response.Write("送信者")
ElseIf PageType = "送信メール" Then
Response.Write("受信者")
End If %>
件名
<% If PageType = "受信メール" Then %>
開封
<% End If %>
削除
<%
Dim Sakuseibi, Kenmai, Naiyo, KaifuFlg, GakuseiBango, SakujyoFlg, Kaisyamei, HyojiyoAtesakiMei
Dim Query
Dim Content
Dim ii, jj, iiDef
ii = 0
iiDef = -1
If PageType = "受信メール" Then
Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
ElseIf PageType = "送信メール" Then
Query = "exec SPNメール送信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If MailCD = Content.Fields("メールCD") Then
iiDef = ii
End IF
MailCD = Content.Fields("メールCD")
Sakuseibi = Content.Fields("作成日")
TorihikisakiCD = Content.Fields("会社CD")
Kenmai = Content.Fields("件名")
Naiyo = Content.Fields("内容")
KaifuFlg = Content.Fields("開封フラグ")
GakuseiBango = Content.Fields("学生番号")
SakujyoFlg = Content.Fields("削除フラグ")
If SakujyoFlg = 0 Then
HyojiyoAtesakiMei = ""
If PageType = "受信メール" Then
HyojiyoAtesakiMei = ConvKaisyaRyakuMeisyo(Content.Fields("作成会社CD"))
ElseIf PageType = "送信メール" Then
Dim tmps, i
tmps = split(Content.Fields("表示用宛先CD"), ",")
For i = 0 To UBound(tmps)
If HyojiyoAtesakiMei <> "" Then
HyojiyoAtesakiMei = HyojiyoAtesakiMei + ","
End If
If i mod 5 = 0 And i <> 0 Then
HyojiyoAtesakiMei = HyojiyoAtesakiMei + ""
End If
HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i))
Next
End If
If PageType = "受信メール" Then
Response.Write("" & vbCrLf)
Else
Response.Write(" " & vbCrLf)
End If
Response.Write("" & Sakuseibi & " " & vbCrLf)
Response.Write("")
Response.Write(Left(HyojiyoAtesakiMei, 16))
If Len(HyojiyoAtesakiMei) > 16 Then
Response.Write("...")
End If
Response.Write(" " & vbCrLf)
Response.Write("" & Kenmai & " " & vbCrLf)
If PageType = "受信メール" Then
Response.Write("")
If KaifuFlg = 0 Then
Response.Write("未")
Else
Response.Write("済")
End If
Response.Write(" " & vbCrLf)
End If
Response.Write("")
Response.Write(" " & vbCrLf)
ii = ii + 1
Response.Write(" ")
End If
Content.MoveNext
Loop
For jj = ii To 15
Response.Write("" & vbCrLf)
Response.Write("")
Response.Write(" " & vbCrLf)
Response.Write(" ")
Next
%>