home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / windowsxp / ftgateoffice / ftgateoffice.exe / Main / messagebody.fts < prev    next >
Encoding:
Text File  |  2001-11-29  |  1.0 KB  |  55 lines
  1. <%
  2. #include </utility/security.fts>
  3. #include </utility/global.fts>
  4. #include </utility/theme.fts>
  5. #include </utility/ftgate.fts>
  6.  
  7. var d = new server.domain
  8.  
  9. d.domainname=request.domain
  10.  
  11. var m=new d.mailbox
  12.  
  13. if (d.description=="Local")
  14.     m.name=request.name
  15. else
  16.     m.findfirst(request.domain)
  17.  
  18. var folder=new m.folder
  19.  
  20. if (folder.message.selectid(request.id))
  21. {
  22.     var msg = folder.message.open()
  23.  
  24.     if (msg.typeof=="object")
  25.     {
  26.         %>
  27.         <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
  28.         <HTML>
  29.         <HEAD>
  30.         <LINK REL=STYLESHEET HREF="/webmail/utility/main<%=nn4%>.css" TYPE="text/css">
  31.         <META NAME="GENERATOR" Content="Microsoft Developer Studio">
  32.         <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  33.         </HEAD>
  34.  
  35.         <BODY>
  36.         <CODE>
  37.         <%
  38.         scripttimeout=300
  39.         var wm=new server.webmail
  40.  
  41.         var ok=msg.firsttext()
  42.         while (ok)
  43.         {
  44.             output.writeln(wm.escape(msg.text)+"<BR>")
  45.  
  46.             ok=msg.nexttext()
  47.         }
  48.         %>
  49.         </CODE>
  50.         </BODY>
  51.         </HTML>
  52.         <%
  53.     }
  54. }
  55. %>