filterjob.asp example
<%@ 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
%>
<!--#include virtual="/html/htmllib.asp"-->
<!--#include virtual="/html/edittable.asp"-->
<!--#include file="menu.asp"-->
<HTML>
<HEAD>
<script>
function status(percent){
document.getElementById("status").style.width = percent * 3;
}
function addaction(text){
var el = document.getElementById("statustxt");
el.innerHTML += text
}
</script>
</HEAD>
<BODY>
<%header()
call items(1)
%>
<h1>Filter contacts</h1>
<table cellpadding=0 border=1>
<tr><td colspan=2>Status</td></tr>
<tr><td>
<table width=300 cellspacing=0 cellpadding=0 border=0>
<tr><td bgcolor=blue border=1><img id="status" width=0 height=10></td><td width=100%></td></tr>
</table>
</td></tr>
</table>
<div id="statustxt"></div>
<%
set con=getcon()
con.CommandTimeout = 600
set rs = server.CreateObject("ADODB.Recordset")
diffusers()
Response.Write "<script>addaction('<br>- Removing duplicate matches ... ')</script>"
con.execute("exec crmqueue_deleteduplicatecontacts "&session("guserid"))
Response.Write "<script>addaction(' "&diffusers()&" removed')</script>"
Response.Write "<script>status(17);addaction('<br>- Removing bad addresses... ')</script>"
con.execute("exec crmqueue_deletebademails "&session("guserid"))
Response.Write "<script>addaction(' "&diffusers()&" removed')</script>"
Response.Write "<script>status(34);addaction('<br>- Removing members if e-mail is to nonmembers ... ')</script>"
con.execute("exec crmqueue_deletemembers "&session("guserid"))
Response.Write "<script>addaction(' "&diffusers()&" removed')</script>"
Response.Write "<script>status(51);addaction('<br>- Removing unsubscribed contacts... ')</script>"
con.execute("exec crmqueue_allunsubscribedemails "&session("guserid"))
Response.Write "<script>addaction(' "&diffusers()&" removed')</script>"
Response.Write "<script>status(68);addaction('<br>- Removing duplicate e-mails... ')</script>"
con.execute("exec crmqueue_deleteduplicateemails "&session("guserid"))
Response.Write "<script>addaction(' "&diffusers()&" removed')</script>"
Response.Write "<script>status(85);addaction('<br>- Removing blackholed e-mails... ')</script>"
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 "<script>addaction(' "&diffusers()&" removed')</script>"
Response.Write "<script>status(100);addaction('<br>- All Done')</script>"
if lastusers = 0 then Response.Write "<script>addaction('<br>-
<span style=""color:red"">Warning, no contacts remaining in
queue</span>')</script>"
%>
<form action="selecttemplate.asp" method=post id=form1 name=form1>
<%call systemvals()%>
<input type="submit" value="Next Step >>">
</form>
<script>
ar = document.getElementsByName("filtered")
for(i=0;i<ar.length;i++)
ar[i].value = "true";
</script>
</body>
</html>
<%
function diffusers()
rs.open "select count(*) from crmprequeue where userid="&session("guserid"), con
diffusers = lastusers - rs(0)
lastusers = rs(0)
rs.close
end function
%>