<% verify set objDB = OpenDatabase(true) SQL = "Select L.*, D.Company as Distributor, D.MailingAddress, D.MailingCity, D.MailingState, D.MailingZip, D.Email as DistributorEmail, D.Phone as DistributorPhone, R.FirstName + ' ' + R.LastName as RegionalManager, R.Phone as RegionalPhone, R.Email as RegionalEmail from Leads L, Distributors D, Regions R where L.DistributorID = D.ID AND L.AdminApproved = 1 AND L.Active = 1 AND L.RegionID = R.RegionID order by L.Timestamp desc" set rsLeads = CreateRecordset(objDB, SQL) set rFile = server.createobject("Scripting.FileSystemObject") leadsfilename = "leadarchive.csv" set leadsfile = rFile.CreateTextFile(server.mappath("temp") &"/" & leadsfilename, true) leadsfile.writeline("FirstName,LastName,JobTitle,Company,Email,BusinessStreet,BusinessStreet2,BusinessCity,BusinessState,BusinessZip,BusinessCountry,BusinessPhone,BusinessCell,BusinessFax,Notes,PrimaryMarket,SecondaryMarket,LeadSource,Notes2,RMComments,Distributor,Distributor Address,Distributor City,Distributor State,Distributor Zip,Distributor Phone,Distributor Email,DistributorNotes,Regional Manager,Regional Phone,Regional Email,DateAdded") section = "Leads" %>
:: <%=section%>

Lead Archive

<% while not rsLeads.eof if x mod 2 = 0 then bgcolor = "#DFDFDF" else bgcolor = "#FFFFFF" end if %> <% leadsfile.writeline("""" & rsLeads("FirstName") & """,""" & rsLeads("LastName") & """,""" & rsLeads("JobTitle") & """,""" & rsLeads("Company") & """,""" & rsLeads("Email") & """,""" & rsLeads("BusinessStreet") & """,""" & rsLeads("BusinessStreet2") & """,""" & rsLeads("BusinessCity") & """,""" & rsLeads("BusinessState") & """,""" & rsLeads("BusinessZip") & """,""" & rsLeads("BusinessCountry") & """,""" & rsLeads("BusinessPhone") & """,""" & rsLeads("BusinessCell") & """,""" & rsLeads("BusinessFax") & """,""" & rsLeads("Notes") & """,""" & rsLeads("PrimaryMarket") & """,""" & rsLeads("SecondaryMarket") & """,""" & rsLeads("LeadSource") & """,""" & rsLeads("Notes2") & """,""" & rsLeads("RMComments") & """,""" & rsLeads("Distributor") & """,""" & rsLeads("MailingAddress") & """,""" & rsLeads("MailingCity") & """,""" & rsLeads("MailingState") & """,""" & rsLeads("MailingZip") & """,""" & rsLeads("DistributorPhone") & """,""" & rsLeads("DistributorEmail") & """,""" & rsLeads("DistributorNotes") & """,""" & rsLeads("RegionalManager") & """,""" & rsLeads("RegionalPhone") & """,""" & rsLeads("RegionalEmail") & """,""" & rsLeads("TimeStamp") & """") rsLeads.movenext x = x + 1 wend %>
Name Company Delete
<%= rsLeads("LastName") %>, <%= rsLeads("FirstName") %> <%= rsLeads("Company") %> ">view ">

Download Lead Archive

<% leadsfile.close set leadsfile = nothing set rFile = nothing rsLeads.close set rsLeads = nothing objDB.close set objDB = nothing %>