<%
If PageType = "受信メール" Then
Response.Write("受信日")
ElseIf PageType = "送信メール" Then
Response.Write("発信日")
End If %>
<%
If PageType = "受信メール" Then
Response.Write("送信者")
ElseIf PageType = "送信メール" Then
Response.Write("受信者")
End If %>
件名
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
'If PageType = "受信メール" Then
' Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'ElseIf PageType = "送信メール" Then
' Query = "exec SPNメール送信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'End If
If PageType = "受信メール" Then
Query = "exec SPN学生メール受信一覧 '" & GB_SystemCD & "','" & Session("UserID") & "'"
ElseIf PageType = "送信メール" Then
Query = "exec SPN学生メール送信一覧 '" & GB_SystemCD & "','" & Session("UserID") & "'"
End If
'Response.Write("Query:" & Query)
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmai, Naiyo, KaifuFlg, GakuseiBango, SakujyoFlg, Kaisyamei, HyojiyoAtesakiMei
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"))
HyojiyoAtesakiMei = ConvKaisyaMeisyo(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))
HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaMeisyo(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)
Response.Write(" ")
ii = ii + 1
End If
Content.MoveNext
Loop
For jj = ii To 15
Response.Write("" & vbCrLf)
Response.Write("")
'Response.Write(" " & vbCrLf)
Response.Write(" ")
Next
%>