home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advpop3 / act_status.asp < prev    next >
Encoding:
Text File  |  2001-08-12  |  745 b   |  31 lines
  1. <html>
  2. <head>
  3.     <title>Status</title>
  4. </head>
  5. <body>
  6. <%
  7. dim POP3
  8. set POP3 = Server.CreateObject("AdvPOP3.POP3")
  9. POP3.ServerName = Request.Form("ServerName")
  10. POP3.UserName = Request.Form("UserName")
  11. POP3.Password = Request.Form("Password")
  12. if (Request.Form("Port") <> "") then
  13.     POP3.Port = Request.Form("Port")
  14. end if
  15. if (Request.Form("Timeout") <> "") then
  16.     POP3.Timeout = Request.Form("Timeout")
  17. end if
  18. set Result = POP3.Status()
  19. if POP3.IsError = 1 then
  20.     Response.Write POP3.ErrorReason & "<br>"
  21. else    
  22.     Response.Write "Mails Count = " & Result.Count & "<br>"
  23.     Response.Write "Mails Size = " & Result.Size & "<br>"
  24. end if
  25. set Result = Nothing
  26. set POP3 = Nothing
  27. %>
  28. <A HREF="dsp_status.htm">Back</A>
  29. </body>
  30. </html>
  31.