Spam Crusher Enterprise

Processing...

<% EOLN = chr(13) + chr(10) Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1") SpamCrusher.SetCurrentUser(Session("UserId")) 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("lstFromFilters") '************Delete multiple phrases at once StartPos = 1 Str2Send = "" EndPos = InStr(StartPos, Phrases, ", ") do while (EndPos>0) Str = Mid(Phrases, StartPos, EndPos-StartPos) StartPos = EndPos+2 EndPos = InStr(StartPos, Phrases, ", ") Str2Send = Str2Send + Str + chr(10) loop Str = Mid(Phrases, StartPos) Str2Send = Str2Send + Str + chr(10) SpamCrusher.DeleteFromFilter(Str2Send) SpamCrusher.Logoff() Response.Redirect("fromfilters.asp") Else ' add button SpamCrusher.Logoff Response.Redirect("addfromfilter.asp") End If Response.Write("") %>