home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / procfromfilters.asp < prev    next >
Text File  |  2003-10-17  |  2KB  |  66 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.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  25.     SpamCrusher.SetCurrentUser(Session("UserId"))
  26.  
  27.     Add = Request.Form("btnAdd")
  28.     Delete = Request.Form("btnDelete")
  29.  
  30.     if (Delete<>"") then
  31.         Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  32.         SpamCrusher.SetCurrentUser(Session("UserId"))
  33.  
  34.         Phrases = Request.Form("lstFromFilters")
  35.  
  36.         '************Delete multiple phrases at once
  37.         
  38.         StartPos = 1
  39.         Str2Send = ""
  40.         EndPos = InStr(StartPos, Phrases, ", ")
  41.         do while (EndPos>0) 
  42.             Str = Mid(Phrases, StartPos, EndPos-StartPos)
  43.             StartPos = EndPos+2
  44.             EndPos = InStr(StartPos, Phrases, ", ")
  45.  
  46.             Str2Send = Str2Send + Str + chr(10)
  47.         loop
  48.  
  49.         Str = Mid(Phrases, StartPos)
  50.         Str2Send = Str2Send + Str + chr(10)
  51.         SpamCrusher.DeleteFromFilter(Str2Send)
  52.  
  53.         SpamCrusher.Logoff()
  54.         
  55.         Response.Redirect("fromfilters.asp")
  56.     Else
  57.         ' add button
  58.         SpamCrusher.Logoff
  59.         Response.Redirect("addfromfilter.asp")
  60.     End If
  61.  
  62.  
  63.     Response.Write("")
  64. %>          
  65.     </body>
  66. </html>