Spam
Crusher EnterpriseSpam
Crusher Enterprise
Processing...
<% EOLN = chr(13) + chr(10) Add = Request.Form("btnAdd") Delete = Request.Form("btnDelete") if (Delete<>"") then Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1") SpamCrusher.SetCurrentUser(Session("UserId")) Phrases = Request.Form("lstPhrases") '************Delete multiple phrases at once StartPos = 1 EndPos = InStr(StartPos, Phrases, ", ") do while (EndPos>0) Str = Mid(Phrases, StartPos, EndPos-StartPos) StartPos = EndPos+2 EndPos = InStr(StartPos, Phrases, ", ") SpamCrusher.DeleteAcceptablePhrase(Str) loop Str = Mid(Phrases, StartPos) SpamCrusher.DeleteAcceptablePhrase(Str) SpamCrusher.Logoff() Response.Redirect("acceptablephrases.asp") Else ' add button Response.Redirect("addPhrase.asp") End If Response.Write("") %>