Spam
Crusher EnterpriseSpam
Crusher Enterprise
Processing...
<% EOLN = chr(13) + chr(10) Salvage = Request.Form("btnSalvage") Delete = Request.Form("btnDelete") Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1") SpamCrusher.SetCurrentUser(Session("UserId")) HdrCount = SpamCrusher.GetHeaderCount() Msgs2Delete="" For Each x In Request.Form Value = Request.Form(x) if (Left(x, 2)="cb" and InStr(Value, "ON")>0) then EmailId = Mid(x, 3) if (Delete<>"") then Msgs2Delete= Msgs2Delete + EmailId + " " Else SpamCrusher.SalvageMsg(EmailId) End If End If Next if (Msgs2Delete<>"") then SpamCrusher.DeleteMsg(Msgs2Delete) End If SpamCrusher.Logoff() 'SpamCrusher = nothing URL = "viewspam.asp?RangeLo=" + Request.QueryString("RangeLo") + "&RangeHi=" + Request.QueryString("RangeHi") Response.Redirect(URL) Response.Write("") %>