<%@LANGUAGE="VBSCRIPT"%> <% ' Spd E-Letter v3 ' © 2001 PensaWorks, inc. ' For help with this program, please email JHarris@pensaworks.com Dim Access : Access = "User" Dim Nav3 : Nav3 = "6" %> <%=ListName%> - Spd E-Letter Administration

List Reports

Total Lists:
<% set rs1 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Lists") rs1Num = rs1("cnt1") set rs1 = nothing response.write rs1Num %>
View Lists
Total Subscribers:
<% set rs2 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Subscribers") rs2Num = rs2("cnt1") set rs2 = nothing response.write rs2Num %>
View Subscribers
Total Pending Subscriptions:
<% set rs3 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Pending WHERE PendingType = 1") rs3Num = rs3("cnt1") set rs3 = nothing response.write rs3Num %>
View Pending Subscriptions
Total Pending Removals:
<% set rs4 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Pending WHERE PendingType = 2") rs4Num = rs4("cnt1") set rs4 = nothing response.write rs4Num %>
View Pending Removals

 

<% listWhereClause = listWhere(allowedLists, "ML_Lists.") if (listWhereClause <> "") then listWhereClause = "WHERE " & listWhereClause set lstRecord = mlConn.execute("SELECT * FROM ML_Lists " & listWhereClause & " ORDER BY ListName ASC") if lstRecord.eof then %> <% else if allowedList(lstRecord("ListID"), allowedLists) then count = 0 do until lstRecord.eof count = count + 1 bgdark = not bgdark %> <% lstRecord.movenext loop end if end if %>
# List Name Last Email Sent Total Subscribers Pending Broadcasts Sent Broadcasts Action
There are no lists at this time.
<%=count%> <%=lstRecord("ListName")%> <%=getDatefromNum(lstRecord("LastEmailSentDate"))%> <% set cntRecord = mlConn.execute("SELECT COUNT(*) AS Count1 FROM ML_Subscribers WHERE ListID = " & lstRecord("ListID")) %> <%=cntRecord("Count1")%> <% set cntRecord = nothing %> Subscribers <% set cntRecord = mlConn.execute("SELECT COUNT(*) AS Count1 FROM ML_Broadcast WHERE Status = 'Pending' AND ListID = " & lstRecord("ListID")) %> <%=cntRecord("Count1")%> <% set cntRecord = nothing %> Broadcasts Pending <% set cntRecord = mlConn.execute("SELECT COUNT(*) AS Count1 FROM ML_Broadcast WHERE Status = 'Broadcasted' AND ListID = " & lstRecord("ListID")) %> <%=cntRecord("Count1")%> <% set cntRecord = nothing %> Sent Emails