<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "4" %> <% on error goto 0 NR = 25 if (request("SN") <> "") then SN = request("SN") else SN = "ListID" if (request("SO") <> "") then SO = request("SO") else SO = "ASC" set getRecords = Server.CreateObject("ADODB.Recordset") getRecords.ActiveConnection = mlConn getRecords.Source = "SELECT ListID, ListName, CreatedDate, PublicList FROM ML_Lists ORDER BY " & SN & " " & SO getRecords.CursorType = 1 getRecords.LockType = 3 getRecords.Open() set recCount = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Lists") %> <%=ListName%> - Spd E-Letter Administration

View Lists

Create New List

Total Lists:
<% set rs1 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Lists") rs1Num = rs1("cnt1") set rs1 = nothing response.write rs1Num %>
Total Subscribers:
<% set rs2 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Subscribers WHERE subRemoved <> 1") rs2Num = rs2("cnt1") set rs2 = nothing response.write rs2Num %>
Total Pending Subscribers:
<% set rs3 = mlConn.Execute("SELECT COUNT(*) AS cnt1 FROM ML_Pending WHERE PendingType = 1") rs3Num = rs3("cnt1") set rs3 = nothing response.write rs3Num %>
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 %>

<%If getRecords.EOF Then%> <% else %> <% while (NOT getRecords.EOF) if allowedList(getRecords("ListID"), allowedLists) then numSub = numSub + 1 %> <% end if getRecords.movenext wend end if %>
 #  HELP! ID Sort by this Field AscendingSort by this Field Descending  HELP! List Name Sort by this Field AscendingSort by this Field Descending  HELP! Public Sort by this Field AscendingSort by this Field Descending  HELP! Subscribers  Action

There are no lists at this time.
<%=NumSub%> <%=getRecords("ListID")%> " TITLE="Edit This List"><%=getRecords("Listname")%> <%if (getRecords("PublicList") = "Public") then response.write "Yes" Else Response.Write "No" %> <% set rsCount = mlConn.execute("Select Count(*) AS cnt1 FROM ML_Subscribers WHERE ListID = " & getRecords("ListID") & " AND subRemoved <> 1") response.write rsCount("cnt1") set rsCount = nothing %> Subscribers   

<% set getRecords = nothing %>