style="cursor:pointer;" onClick="tblbtn('fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=<% = RouteType %>&Mode=<% = Mode %>&Sort=0');"<% End If %>><%
If PageType = "RecvMail" Then
Response.Write("受信日")
ElseIf PageType = "SendMail" Then
Response.Write("発信日")
End If %>
style="cursor:pointer;" onClick="tblbtn('fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=<% = RouteType %>&Mode=<% = Mode %>&Sort=1');"<% End If %>><%
If PageType = "RecvMail" Then
Response.Write("送信者")
ElseIf PageType = "SendMail" Then
Response.Write("受信者")
End If %>
style="cursor:pointer;" onClick="tblbtn('fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=<% = RouteType %>&Mode=<% = Mode %>&Sort=2');"<% End If %>>件名
<% If Mode <> "Shitagaki" Then %>
<% If PageType = "RecvMail" Then %>
style="cursor:pointer;" onClick="tblbtn('fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=<% = RouteType %>&Mode=<% = Mode %>&Sort=3');"<% End If %>>開封
<% Else %>
受信側
<% End If %>
<% End If %>
<% = DelLabel %>
<%
Dim MailCD2, Sakuseibi, Kenmai, Naiyo, KaifuFlg, GakuseiBango, SakujyoFlg, Kaisyamei, HyojiyoAtesakiMei
Dim Query
Dim Content
Dim ii, jj, iiDef
ii = 0
iiDef = -1
If PageType = "RecvMail" Then
Query = "exec SPNメール受信一覧2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Sort & "'"
ElseIf PageType = "SendMail" Then
Query = "exec SPNメール送信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
MailCD2 = "" & Content.Fields("メールCD")
If MailCD = MailCD2 Then
iiDef = ii
End If
Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日"))
TorihikisakiCD = Content.Fields("会社CD")
Kenmai = Content.Fields("件名")
Naiyo = Content.Fields("内容")
KaifuFlg = "" & Content.Fields("開封フラグ")
GakuseiBango = Content.Fields("学生番号")
SakujyoFlg = Content.Fields("削除フラグ")
If (Mode = "Sakujo" And SakujyoFlg = 1) Or (Mode <> "Sakujo" And (SakujyoFlg = 0 And ((PageType = "RecvMail" And (Mode <> "Midoku" Or KaifuFlg <> "1")) Or (Mode <> "Shitagaki" And "" & Content.Fields("送信フラグ") = "1" Or Mode = "Shitagaki" And "" & Content.Fields("送信フラグ") <> "1")))) Then
HyojiyoAtesakiMei = ""
If PageType = "RecvMail" Then
HyojiyoAtesakiMei = ConvKaisyaMeisyo(Content.Fields("作成会社CD"))
ElseIf PageType = "SendMail" 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
If UBound(tmps) = 0 Then
HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaMeisyo(tmps(i))
Else
HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i))
End If
Next
End If
Dim FontColor
FontColor = ""
If PageType = "RecvMail" And "" & KaifuFlg = "1" Then
FontColor = "color:#888888;"
FontColor = "background-color:#dddddd;"
End If
If PageType = "RecvMail" Then
Response.Write("" & vbCrLf)
Else
Response.Write(" " & vbCrLf)
End If
Response.Write("" & Sakuseibi & " " & vbCrLf)
Response.Write("")
Response.Write(Left(HyojiyoAtesakiMei, 13))
If Len(HyojiyoAtesakiMei) > 13 Then
Response.Write("...")
End If
Response.Write(" " & vbCrLf)
Response.Write("" & HardWrap(Kenmai) & " " & vbCrLf)
If Mode <> "Shitagaki" Then
' If PageType = "RecvMail" Then
Response.Write("")
If KaifuFlg = 0 Then
Response.Write("未")
ElseIf KaifuFlg = 1 Then
Response.Write("済")
Else
Response.Write(" ") '090608版までは受信側開封が判定出来ないため空白にする
End If
Response.Write(" " & vbCrLf)
' End If
End If
Response.Write("")
Response.Write(" " & vbCrLf)
ii = ii + 1
Response.Write(" ")
End If
Content.MoveNext
Loop
For jj = ii To 20
If PageType = "RecvMail" Then
Response.Write("" & vbCrLf)
Else
Response.Write(" " & vbCrLf)
End If
Response.Write("")
Response.Write(" " & vbCrLf)
Response.Write(" ")
Next
%>