home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advpop3 / act_getheaderonly.asp < prev    next >
Encoding:
Text File  |  2001-08-12  |  3.1 KB  |  98 lines
  1. <html>
  2. <head>
  3.     <title>GetHeaderOnly</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. --->
  13. <%
  14. server.ScriptTimeout = 3600
  15. dim POP3
  16. dim List
  17. set POP3 = Server.CreateObject("AdvPOP3.POP3")
  18. Response.Write Time & "<br>"
  19. POP3.ServerName = Request.Form("ServerName")
  20. POP3.UserName = Request.Form("UserName")
  21. POP3.Password = Request.Form("Password")
  22. if (Request.Form("Port") <> "") then
  23.     POP3.Port = Request.Form("Port")
  24. end if
  25. if (Request.Form("Timeout") <> "") then
  26.     POP3.Timeout = Request.Form("Timeout")
  27. end if
  28. POP3.MessageNumber = Request.Form("MessageNumbers")
  29. POP3.DownloadedUIDs = Request.Form("DownloadedUIDs")
  30. POP3.OrderBy = Request.Form("OrderBy")
  31. if (Request.Form("SortFirst") = "on") then
  32.     POP3.SortFirst = true
  33. end if
  34. set Result = POP3.GetHeaderOnly()
  35. if POP3.IsError = 1 then
  36.     Response.Write POP3.ErrorReason & "<br>"
  37. else%>
  38.         <TABLE WIDTH=75% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
  39.             <TR bgcolor="black">
  40.                 <TD bgcolor="black"><b><font color="white">MessageNo</font></b></TD>
  41.                 <TD bgcolor="black"><b><font color="white">Priority</font></b></TD>
  42.                 <TD bgcolor="black"><font color="white">Date</font></b></TD>
  43.                 <TD bgcolor="black"><font color="white">MessageId</font></b></TD>
  44.                 <TD bgcolor="black"><font color="white">MimeVersion</font></b></TD>
  45.                 <TD bgcolor="black"><font color="white">ContentType</font></b></TD>
  46.                 <TD bgcolor="black"><font color="white">From</font></b></TD>
  47.                 <TD bgcolor="black"><font color="white">ReplyTo</font></b></TD>
  48.                 <TD bgcolor="black"><font color="white">To</font></b></TD>
  49.                 <TD bgcolor="black"><font color="white">Subject</font></b></TD>
  50.                 <TD bgcolor="black"><font color="white">XMailer</font></b></TD>
  51.                 <TD bgcolor="black"><font color="white">UID</font></b></TD>
  52.                 <TD bgcolor="black"><font color="white">Status</font></b></TD>
  53.                 <TD bgcolor="black"><font color="white">Size</font></b></TD>
  54.                 <TD bgcolor="black"><font color="white">CC</font></b></TD>
  55.                 <TD bgcolor="black"><font color="white">ExtraHeaders</font></b></TD>
  56.             </TR>
  57.         <%
  58.             for each Member in Result
  59.         %>
  60.             <TR>
  61.                 <TD><%=Member.MessageNo%></TD>
  62.                 <TD><%=Member.Priority%></TD>
  63.                 <TD><%=Member.Date%></TD>
  64.                 <TD><%=Member.MessageId%></TD>
  65.                 <TD><%=Member.MimeVersion%></TD>
  66.                 <TD><%=Member.ContentType%></TD>
  67.                 <TD><%=Member.From%></TD>
  68.                 <TD><%=Member.ReplyTo%></TD>
  69.                 <TD><%=Member.To%></TD>
  70.                 <TD><%=Member.Subject%></TD>
  71.                 <TD><%=Member.XMailer%></TD>
  72.                 <TD><%=Member.UID%></TD>
  73.                 <TD><%=Member.Status%></TD>
  74.                 <TD><%=Member.Size%></TD>
  75.                 <TD><%=Member.CC%></TD>
  76.                 <TD>
  77.                 <%set List = Member.ExtraHeaders()
  78.                 for each mem in List
  79.                     Response.Write mem.Name & " := " & mem.Value & "<br>"
  80.                 next
  81.                 set List = nothing
  82.                 %>
  83.                 </TD>
  84.             </TR>
  85.         <%
  86.             next
  87.         %>
  88.         </TABLE>
  89.         <%        
  90. end if
  91. Response.Write Time & "<br>"
  92. set Result = Nothing
  93. set POP3 = Nothing
  94. %>
  95. <A HREF="dsp_getheaderonly.htm">Back</A>
  96. </body>
  97. </html>
  98.