<% dim RSCOUNT set RSCOUNT = server.createobject("adodb.recordset") SQLCOUNT = "SELECT ID FROM List" RSCOUNT.Open SQLCOUNT, Conn, 1, 3 dim totalCount totalCount = RSCOUNT.recordcount RSCOUNT.close set RSCOUNT = nothing set RSCOUNT = server.createobject("adodb.recordset") SQLCOUNT = "SELECT ID FROM Archive" RSCOUNT.Open SQLCOUNT, Conn, 1, 3 dim totalArchiveCount totalArchiveCount = RSCOUNT.recordcount RSCOUNT.close set RSCOUNT = nothing %> <%=RSBODY("List_Name")%>
 <%=RSBODY("List_Name")%>
 Home
 Send Mailing
 View/Edit Subscribers
 Generate HTML
 Mail Archive
 Settings
 Support
 Log Out
 Control Panel
Total Subscribers: <%=totalCount%>
Total Archived Messages: <%=totalArchiveCount%>
Maintained with the SiteBuilder Mailing List Manager v1.07