home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advpop3 / act_getall.asp < prev    next >
Encoding:
Text File  |  2001-09-22  |  4.0 KB  |  113 lines
  1. <html>
  2. <head>
  3.     <title>GetAll</title>
  4. </head>
  5. <body>
  6. <center><h2><font color="blue">Results</font></h2></center>
  7. <!--- 
  8. ServerName = specify the server name
  9. UserName = specify user name
  10. Password = specify password for user
  11. MessageNumbers = specify message number set for fetch
  12. AttachmentPath = specify attachment path where attachments will be saved if any
  13. AttachmentPathHTTP = specify http attachment path where attachments will be saved if any
  14. --->
  15. <%
  16. server.ScriptTimeout = 3600
  17. dim POP3
  18. dim List
  19. set POP3 = Server.CreateObject("AdvPOP3.POP3")
  20. Response.Write Time & "<br>"
  21. POP3.ServerName = Request.Form("ServerName")
  22. POP3.UserName = Request.Form("UserName")
  23. POP3.Password = Request.Form("Password")
  24. if (Request.Form("Port") <> "") then
  25.     POP3.Port = Request.Form("Port")
  26. end if
  27. if (Request.Form("Timeout") <> "") then
  28.     POP3.Timeout = Request.Form("Timeout")
  29. end if
  30. POP3.MessageNumber = Request.Form("MessageNumbers")
  31. POP3.DownloadedUIDs = Request.Form("DownloadedUIDs")
  32. POP3.AttachmentPath = Request.Form("AttachmentPath")
  33. POP3.AttachmentPathHTTP = Request.Form("AttachmentPathHTTP")
  34. POP3.OrderBy = Request.Form("OrderBy")
  35. set Result = POP3.GetAll()
  36. if POP3.IsError = 1 then
  37.     Response.Write POP3.ErrorReason & "<br>"
  38. else
  39.     if POP3.AttachmentPathError = 1 then
  40.         Response.Write POP3.AttachmentPathErrorReason & "<br>"
  41.     end if
  42.     %>
  43.         <TABLE WIDTH=75% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
  44.             <TR bgcolor="black">
  45.                 <TD bgcolor="black"><b><font color="white">MessageNo</font></b></TD>
  46.                 <TD bgcolor="black"><b><font color="white">Priority</font></b></TD>
  47.                 <TD bgcolor="black"><font color="white">Date</font></b></TD>
  48.                 <TD bgcolor="black"><font color="white">MessageId</font></b></TD>
  49.                 <TD bgcolor="black"><font color="white">MimeVersion</font></b></TD>
  50.                 <TD bgcolor="black"><font color="white">ContentType</font></b></TD>
  51.                 <TD bgcolor="black"><font color="white">From</font></b></TD>
  52.                 <TD bgcolor="black"><font color="white">ReplyTo</font></b></TD>
  53.                 <TD bgcolor="black"><font color="white">To</font></b></TD>
  54.                 <TD bgcolor="black"><font color="white">Subject</font></b></TD>
  55.                 <TD bgcolor="black"><font color="white">XMailer</font></b></TD>
  56.                 <TD bgcolor="black"><font color="white">UID</font></b></TD>
  57.                 <TD bgcolor="black"><font color="white">Status</font></b></TD>
  58.                 <TD bgcolor="black"><font color="white">Size</font></b></TD>
  59.                 <TD bgcolor="black"><font color="white">CC</font></b></TD>
  60.                 <TD bgcolor="black"><font color="white">AttachmentSent</font></b></TD>
  61.                 <TD bgcolor="black"><font color="white">Body</font></b></TD>
  62.                 <TD bgcolor="black"><font color="white">HTMLBody</font></b></TD>
  63.                 <TD bgcolor="black"><font color="white">AttachmentSaved</font></b></TD>                
  64.                 <TD bgcolor="black"><font color="white">AttachmentFiles</font></b></TD>                
  65.                 <TD bgcolor="black"><font color="white">ExtraHeaders</font></b></TD>
  66.             </TR>
  67.         <%
  68.             for each Member in Result
  69.         %>
  70.             <TR>
  71.                 <TD><%=Member.MessageNo%></TD>
  72.                 <TD><%=Member.Priority%></TD>
  73.                 <TD><%=Member.Date%></TD>
  74.                 <TD><%=Member.MessageId%></TD>
  75.                 <TD><%=Member.MimeVersion%></TD>
  76.                 <TD><%=Member.ContentType%></TD>
  77.                 <TD><%=Member.From%></TD>
  78.                 <TD><%=Member.ReplyTo%></TD>
  79.                 <TD><%=Member.To%></TD>
  80.                 <TD><%=Member.Subject%></TD>
  81.                 <TD><%=Member.XMailer%></TD>
  82.                 <TD><%=Member.UID%></TD>
  83.                 <TD><%=Member.Status%></TD>
  84.                 <TD><%=Member.Size%></TD>
  85.                 <TD><%=Member.CC%></TD>
  86.                 <TD><%=Member.AttachmentSent%></TD>
  87.                 <TD><%=Member.Body%></TD>
  88.                 <TD><%=Member.HTMLBody%></TD>
  89.                 <TD><%=Member.AttachmentSaved%></TD>
  90.                 <TD><%=Member.AttachmentFiles%></TD>                
  91.                 <TD>
  92.                 <%set List = Member.ExtraHeaders()
  93.                 for each mem in List
  94.                     Response.Write mem.Name & " := " & mem.Value & "<br>"
  95.                 next
  96.                 set List = nothing
  97.                 %>
  98.                 </TD>
  99.             </TR>
  100.         <%
  101.             next
  102.         %>
  103.         </TABLE>
  104.         <%        
  105. end if
  106. Response.Write Time & "<br>"
  107. set Result = Nothing
  108. set POP3 = Nothing
  109. %>
  110. <A HREF="dsp_getall.htm">Back</A>
  111. </body>
  112. </html>
  113.