home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advpop3 / act_delete.asp next >
Encoding:
Text File  |  2001-08-12  |  692 b   |  30 lines
  1. <html>
  2. <head>
  3.     <title>Delete</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. POP3.MessageNumber = Request.Form("MessageNumber")
  19. POP3.Delete()
  20. if POP3.IsError = 1 then
  21.     Response.Write POP3.ErrorReason & "<br>"
  22. else    
  23.     Response.Write "Successfully deleted<br>"
  24. end if
  25. set POP3 = Nothing
  26. %>
  27. <A HREF="dsp_status.htm">Back</A>
  28. </body>
  29. </html>
  30.