Spam Crusher Enterprise

Processing...

<% EOLN = chr(13) + chr(10) Pwd1 = Request.Form("ePwd1") Pwd2 = Request.Form("ePwd2") Trim(Pwd1) Trim(Pwd2) if ( Pwd1="" or Pwd2="" or Pwd1<>Pwd2 ) then Response.Write("Please retype your passwords. You must type your password twice to make sure you spell it correctly.") %> Retype admin password <% Else Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1") SpamCrusher.SetCurrentUser(Session("UserId")) SpamCrusher.SaveAdminPwd(Pwd1) SpamCrusher.Logoff() Response.Redirect("myprofile.asp") End If %>