home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / savesettings.asp < prev    next >
Text File  |  2004-05-28  |  1KB  |  43 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="timeout.asp"-->
  14.  
  15.         <p><img border="0" src="smflaglogo.jpg" align="middle"><font size="5">Spam 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.     MailServer  = Request.Form("eMailServerName")
  28.     EmailUserId = Request.Form("eEmailUserId")
  29.     EmailPwd    = Request.Form("eEmailPwd")
  30. '    Domains     = Request.Form("lbDomains")
  31.  
  32.     'setting names are the same as the registry settings
  33.     SpamCrusher.SaveServerSetting "MailServerName", MailServer 
  34.     SpamCrusher.SaveServerSetting "UserName"      , EmailUserId 
  35.     SpamCrusher.SaveServerSetting "Password"      , EmailPwd 
  36.     
  37.     SpamCrusher.Logoff()
  38.  
  39.     Response.Redirect("serversettings.asp")
  40.     Response.Write("")
  41. %>          
  42.     </body>
  43. </html>