<%@ Language=VBScript %>
<%
'------------------FOR DEMO USE ONLY----------------------------------
'-------- Copyright by Artem Saveliev artem@savelev.com --------------
'---------------------------------------------------------------------
Server.ScriptTimeout = 600
if cint(session("userlevel"))<3 then
Response.Redirect "/admin/index.asp?pgname="&Request.ServerVariables("URL")
end if
Response.Buffer = false
dim lastusers
%>
<%header()
call items(1)
%>
Filter contacts
<%
set con=getcon()
con.CommandTimeout = 600
set rs = server.CreateObject("ADODB.Recordset")
diffusers()
Response.Write ""
con.execute("exec crmqueue_deleteduplicatecontacts "&session("guserid"))
Response.Write ""
Response.Write ""
con.execute("exec crmqueue_deletebademails "&session("guserid"))
Response.Write ""
Response.Write ""
con.execute("exec crmqueue_deletemembers "&session("guserid"))
Response.Write ""
Response.Write ""
con.execute("exec crmqueue_allunsubscribedemails "&session("guserid"))
Response.Write ""
Response.Write ""
con.execute("exec crmqueue_deleteduplicateemails "&session("guserid"))
Response.Write ""
Response.Write ""
con.execute("DELETE FROM crmprequeue WHERE contactid IN " &_
" (SELECT contactid FROM crmdata join guser g on datatype=5 and datavalue=gid" &_
" JOIN blackholers y on g.email like '%' + y.email" &_
" WHERE datatype=5)")
Response.Write ""
Response.Write ""
if lastusers = 0 then Response.Write ""
%>
<%
function diffusers()
rs.open "select count(*) from crmprequeue where userid="&session("guserid"), con
diffusers = lastusers - rs(0)
lastusers = rs(0)
rs.close
end function
%>