home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / saveadminpwd.asp < prev    next >
Text File  |  2004-01-26  |  1KB  |  46 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.  
  14.         <p><img border="0" src="smflaglogo.jpg" align="middle"><font size="5">Spam Crusher Enterprise</font></p>
  15.  
  16.  
  17.         <p align="center"><font size="5">Processing...</font></p>
  18.  
  19.  
  20. <%
  21.     EOLN = chr(13) + chr(10)
  22.  
  23.     Pwd1 = Request.Form("ePwd1")
  24.     Pwd2 = Request.Form("ePwd2")
  25.     Trim(Pwd1)
  26.     Trim(Pwd2)
  27.     
  28.     if ( Pwd1="" or Pwd2="" or Pwd1<>Pwd2 ) then
  29.         Response.Write("Please retype your passwords.  You must type your password twice to make sure you spell it correctly.")
  30. %>
  31.     <a href="adminpwd.asp">Retype admin password</a>
  32. <%
  33.     Else
  34.         
  35.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  36.     SpamCrusher.SetCurrentUser(Session("UserId"))
  37.     SpamCrusher.SaveAdminPwd(Pwd1)
  38.     SpamCrusher.Logoff()
  39.  
  40.     Response.Redirect("myprofile.asp")
  41.  
  42.     End If
  43.  
  44. %>          
  45.     </body>
  46. </html>