<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "User" : Nav3 = "1" %> <% response.buffer = true set rsLists = mlConn.Execute("SELECT * FROM ML_Lists ORDER BY ListName ASC") NumSub = "0" %> <%=ListName%> - Spd E-Letter Administration

Main Page

<% if session("svListID") <> "" then %>

Your Default List is currently set to "<%=Session("svList")%>"

<% else %>

You do not have a Default List Set at this time.

<% end if %>
Total Lists: 
 <% set rs1 = mlConn.Execute("SELECT COUNT(*) AS Count1 FROM ML_Lists") rs1Num = rs1("Count1") rs1.Close() Set rs1 = Nothing Response.Write rs1Num %> 
 View Lists
Total Subscribers: 
 <% set rs2 = mlConn.Execute("SELECT COUNT(*) AS Count1 FROM ML_Subscribers WHERE subRemoved <> 1") rs2Num = rs2("Count1") rs2.Close() Set rs2 = Nothing Response.Write rs2Num %> 
 View Subscribers 
Total Pending Subscriptions: 
 <% set rs3 = mlConn.Execute("SELECT COUNT(*) AS Count1 FROM ML_Pending WHERE PendingType = 1") rs3Num = rs3("Count1") rs3.Close() Set rs3 = Nothing Response.Write rs3Num %> 
 View Pending Subscriptions 
 Total Pending Removals: 
 <% set rs4 = mlConn.Execute("SELECT COUNT(*) AS Count1 FROM ML_Pending WHERE PendingType = 2") rs4Num = rs4("Count1") rs4.Close() Set rs4 = Nothing Response.Write rs4Num %> 
 View Pending Removals 

<% if rsLists.EOF then %><% else while (NOT rsLists.EOF) if allowedList(rsLists("ListID"), allowedLists) then numSub = numSub + 1 %> <% end if rsLists.MoveNext() wend end if %>
 # HELP!ID HELP! List Name HELP! Public HELP! Subscribers  Action

There are no lists at this time.
<%=NumSub%>
<%=rsLists("ListID")%>
 <%=rsLists("Listname")%>
<%if (rsLists("PublicList") = "Public") then Response.Write "Yes" Else Response.Write "No" %>
<% set rsCount = mlConn.Execute("Select COUNT(*) AS Count1 FROM ML_Subscribers WHERE ListID = " & rsLists("ListID") & " AND subRemoved <> 1") response.write rsCount("Count1") set rsCount = nothing %>
   

If this is the first time logging in after setup, you need to set the Site Preferences here.
Want to change your navigation style? Click here.


<% set rsLists = nothing %>