<%
Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
SpamCrusher.SetCurrentUser(Session("UserId"))
ControlCmd = Request.QueryString("Control")
if (ControlCmd="Start") then
SpamCrusher.StartSpamCrusher()
Elseif (ControlCmd="Stop") then
SpamCrusher.StopSpamCrusher()
Elseif (ControlCmd="Restart") then
SpamCrusher.StopSpamCrusher()
SpamCrusher.StartSpamCrusher()
End If
Waiting = SpamCrusher.GetSettingValue("Waiting")
Processing = SpamCrusher.GetSettingValue("Processing")
Status = SpamCrusher.GetServerStatus()
%>