VBScript Sample: vbscript/email/viewmail.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<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>
<SCRIPT  Language="JScript">
function First_Click()
{
email.Trace.value = 1;
email.submit();
}
function Forward_Click()
{
email.Trace.value = 2;
email.submit();
}
function ToNext_Click()
{
email.Trace.value = 3;
email.submit();
}
function Last_Click()
{
email.Trace.value = 4;
email.submit();
}
</SCRIPT>


</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.