home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / procmaillist.asp < prev    next >
Text File  |  2003-12-01  |  2KB  |  60 lines
  1. <html>
  2.     <head>
  3.         <title>Spam Crusher Login</title>
  4.         <meta http-equiv="Content-Language" content="en-us">
  5.         <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  6.         <meta name="ProgId" content="FrontPage.Editor.Document">
  7.         <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  8.     </head>
  9.     <body>
  10.         <script LANGUAGE="VBScript" RUNAT="Server">
  11.         </script>
  12.         
  13.  
  14.         <p><img border="0" src="smflaglogo.jpg" align="middle"><font size="5">Spam 
  15.         Crusher Enterprise</font></p>
  16.  
  17.  
  18.         <p align="center"><font size="5">Processing...</font></p>
  19.  
  20.  
  21.         <%
  22.     EOLN = chr(13) + chr(10)
  23.  
  24.     Salvage = Request.Form("btnSalvage")
  25.     Delete = Request.Form("btnDelete")
  26.  
  27.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  28.     SpamCrusher.SetCurrentUser(Session("UserId"))
  29.  
  30.     HdrCount = SpamCrusher.GetHeaderCount()
  31.     Msgs2Delete=""
  32.     
  33.     For Each x In Request.Form
  34.         Value = Request.Form(x)
  35.         
  36.         if (Left(x, 2)="cb" and InStr(Value, "ON")>0) then
  37.             EmailId = Mid(x, 3)
  38.             if (Delete<>"") then
  39.                 Msgs2Delete= Msgs2Delete + EmailId + " "
  40.             Else
  41.                 SpamCrusher.SalvageMsg(EmailId)
  42.             End If
  43.         End If
  44.     Next
  45.  
  46.  
  47.     if (Msgs2Delete<>"") then
  48.         SpamCrusher.DeleteMsg(Msgs2Delete)
  49.     End If
  50.  
  51.     SpamCrusher.Logoff()
  52.     'SpamCrusher = nothing
  53.     
  54.     URL = "viewspam.asp?RangeLo=" + Request.QueryString("RangeLo") + "&RangeHi=" + Request.QueryString("RangeHi")
  55.     Response.Redirect(URL)
  56.  
  57.     Response.Write("")
  58. %>          
  59.     </body>
  60. </html>