home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / acceptablephrases.asp next >
Text File  |  2003-10-17  |  2KB  |  57 lines
  1. <html>
  2.     <head>
  3.         <title>Spam Crusher - Acceptable Phrases</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.         <!--#include FILE="header.asp"-->
  13.         <P align=center><FONT size="5">Acceptable Phrases</FONT></P>
  14.         <p align=center>Spam Crusher will look for these phrases in all of your email.  
  15.                 If an email contains phrases in this list, it will never be blocked.  You 
  16.                 will always receive it.</FONT></P>
  17.         <form action="procphrases.asp" ID="frmPhrasesList" method="post">
  18.             <table border="2" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="#111111"
  19.                 width="100%" id="AutoNumber1">
  20.                 <tr>
  21.                     <td>
  22.                         <p align="center">
  23.                             <input type="submit" value="Add" name="btnAdd" ID="btnAdd"> <input type="submit" value="Delete" name="btnDelete" ID="btnDelete">
  24.                         </p>
  25.                         <P align="center">
  26.                             <select name="lstPhrases" size="20" multiple ID="Select1">
  27.                                 <%
  28.     EOLN = chr(13) + chr(10)
  29.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  30.     SpamCrusher.SetCurrentUser(Session("UserId"))
  31.     Phrases = SpamCrusher.GetAcceptablePhrases()
  32.     SpamCrusher.Logoff()
  33. '    Phrases = Replace(Phrases, EOLN, "<br>")
  34.     StartPos = 1
  35.     EndPos = InStr(StartPos, Phrases, EOLN)
  36.     do while (EndPos>0) 
  37.         Str = Mid(Phrases, StartPos, EndPos-StartPos)
  38.         Str = Replace(Str, chr(10), "")
  39.         if (Len(Str)>=1) then
  40.             Response.Write("<option>" + Str + "</option>")    
  41.         End If
  42.         StartPos = EndPos+1
  43.         EndPos = InStr(StartPos, Phrases, EOLN)
  44.  
  45.     loop
  46.     
  47. %>
  48.                             </select>
  49.                         </P>
  50.                         <br>
  51.                     </td>
  52.                 </tr>
  53.             </table>
  54.         </form>
  55.     </body>
  56. </html>
  57.