home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / procemailaddresses.asp < prev    next >
Text File  |  2003-10-22  |  1KB  |  54 lines
  1. <html>
  2.     <head>
  3.         <title>Spam Crusher</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.         <!--#include FILE="header.asp"-->
  14.  
  15.         <p align="center"><font size="5">Processing...</font></p>
  16.  
  17.  
  18.         <%
  19.     EOLN = chr(13) + chr(10)
  20.  
  21.     Add = Request.Form("btnAdd")
  22.     Delete = Request.Form("btnDelete")
  23.     DeleteAcct = Request.Form("btnDeleteAccount")
  24.     Acct = Request.QueryString("Account")
  25.         
  26.     if (Delete<>"") then
  27.         Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  28.         SpamCrusher.SetCurrentUser(Session("UserId"))
  29.  
  30.         Addrs = Request.Form("lstAddresses")
  31.         SpamCrusher.DeleteEmailAddress Acct, Addrs 
  32.  
  33.         SpamCrusher.Logoff()
  34.  
  35.         Response.Redirect("accountdetail.asp?Account=" + Acct)
  36.     ElseIf (DeleteAcct<>"") then
  37.         Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  38.         SpamCrusher.SetCurrentUser(Session("UserId"))
  39.  
  40.         SpamCrusher.DeleteAccount(Acct)
  41.  
  42.         SpamCrusher.Logoff()
  43.  
  44.         Response.Redirect("accounts.asp")
  45.         
  46.     Else
  47.         
  48.         ' add button
  49.         Response.Redirect("addemailaddress.asp?Account=" + Acct)
  50.     End If
  51.     Response.Write("")
  52. %>          
  53.     </body>
  54. </html>