<html>
<head>
<title>View Mail</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<p align="right"><a href="newmail.html">New mail</a></p>
<p align="right"><a href="email.asp">Go Back</a></p>
<table border="0" width="100%">
<tr>
<td width="100%"><p align="center"><font
face="Verdana, Arial, Helvetica"><big><big>View Mail</big></big></font></p>
<hr>
</td>
</tr>
</table>
<%
dim mysession
dim FromAddress,ToAddress,CcAddress,BccAddress,SendDate,ReceivedDate,Subject
dim Size,Flag,ContentType,Body
FromAddress = ""
ToAddress = ""
CcAddress = ""
BccAddress = ""
ReceivedDate = ""
SendDate = ""
Subject = ""
Size = ""
Flag = ""
ContentType = ""
Body = ""
set inmessages = Session("inmessages")
Response.Write "<p> Inbox message sum is " + cstr(inmessages.Count)
set movemessages = inmessages
dim opt
opt = Request.Form("Trace")
select case opt
case "":
set inmess = movemessages.GetFirst()
case "1":
set inmess = movemessages.GetFirst()
case "2":
set inmess = movemessages.GetPrevious()
case "3":
set inmess = movemessages.GetNext()
case "4":
set inmess = movemessages.GetLast()
end select
if not inmess is nothing then
FromAddress = inmess.Sender.Name '+ " "
+ inmess.Sender.Address
for i = 1 to inmess.Recipients.Count
if inmess.Recipients(i).Type = 1 then
ToAddress = ToAddress + inmess.Recipients(i).Address + " "
elseif inmess.Recipients(i).Type = 2 then
CcAddress = CcAddress + inmess.Recipients(i).Address
+ " "
elseif inmess.Recipients(i).Type = 3 then
BccAddress = BccAddress + inmess.Recipients(i).Address
+ " "
end if
next
SendDate = inmess.TimeSent
Subject = inmess.Subject
Size = inmess.Size
Body = inmess.Text
end if
%>
<form method="post" name="email" action="viewmail.asp">
<input type="hidden" name="Trace" value><table border="0"
width="100%" height="184">
<tr>
<td width="100%" colspan="4" height="27"><div
align="center"><center><p><input
type="button" value=" | < " name="First"
onclick="First_Click()"><input
type="button" value=" < " name="Forward"
onclick="Forward_Click()"><input
type="button" value=" > " name="ToNext"
onclick="ToNext_Click()"><input
type="button" value=" >| " name="Last"
onclick="Last_Click()"></td>
</tr>
<tr align="center">
<td width="25%" height="25"><div
align="right"><p><font face="Verdana, Arial, Helvetica">From:</font></td>
<td width="25%" height="25"><font
face="Verdana, Arial, Helvetica"><input name="FromAddress"
value="<%=
FromAddress %>" size="20"></font></td>
<td width="25%" height="25"><div
align="right"><p><font face="Verdana, Arial, Helvetica">To:</font></td>
<td width="25%" height="25"><font
face="Verdana, Arial, Helvetica"><input name="ToAddress"
value="<%=
ToAddress %>" size="20"></font></td>
</tr>
<tr align="center">
<td width="25%" height="21"><div
align="right"><p>CC :</td>
<td width="25%" height="21"><input
name="CcAddress" value="<%= CcAddress
%>" size="20"></td>
<td width="25%" height="21"><div
align="right"><p>BCC :</td>
<td width="25%" height="21"><input
name="BccAddress" value="<%= BccAddress
%>" size="20"></td>
</tr>
<tr align="center">
<td width="25%" height="21"><div
align="right"><p>SendDate :</td>
<td width="25%" height="21"><input
name="SendDate" value="<%= SendDate
%>" size="20"></td>
<td width="25%" height="21"><div
align="right"><p>Subject :</td>
<td width="25%" height="21"><input
name="Subject" value="<%= Subject %>"
size="20"></td>
</tr>
<tr align="center">
<td width="25%" height="20"><div
align="right"><p>Size :</td>
<td width="25%" height="20"><input
name="Size" value="<%= Size %>"
size="20"></td>
<td width="25%" height="20"><div
align="right"><p>Attachment :</td>
</tr>
<tr align="left">
<td width="100%" height="21" colspan="4">Body
:</td>
</tr>
<tr align="left">
<td width="100%" height="21" colspan="4"><textarea
cols="68" rows="5"> <%= Body %>
</textarea><p> </td>
</tr>
</table>
</form>
<hr align="center">
<p align="center"><u><em>@1998 by Halcyon Corporation. All rights
reserved</em></u></p>
</body>
</html>
|