<% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Mailing List '** '** Copyright 2001-2004 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.info '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'If the session variable is False or does not exsist then redirect the user to the unauthorised user page If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then 'Reset Server Variables Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'Redirect to unathorised user page Response.Redirect("unauthorised_user_page.htm") End If 'Dimension variables Dim rsCatCount 'To count the number susbcribed to a category Dim strCatName 'Holds the name of the category Dim intNumOfCategories 'Holds the number of categories Dim intCatCount 'Holds the number of subscribers to a category Dim intCatID Dim lngActiveMembersCount Dim lngNonActiveMembersCount Dim intSavedEmailsCount Dim dtmLastSavedEmailDate Dim intTemplatesCount Dim intCategoryCount Dim lngHTMLFormat Dim lngPlainTextFormat 'Count active users strSQL = "SELECT Count(*) AS MemCount FROM " & strDbTable & "Members WHERE " & strDbTable & "Members.Active=" & strDBTrue & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users lngActiveMembersCount = CLng(rsCommon("MemCount")) 'Close rs rsCommon.Close 'Count non-active users strSQL = "SELECT Count(*) AS MemCount FROM " & strDbTable & "Members WHERE " & strDbTable & "Members.Active=" & strDBFalse & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users lngNonActiveMembersCount = CLng(rsCommon("MemCount")) 'Close rs rsCommon.Close 'Count html users strSQL = "SELECT Count(*) AS HTMLCount FROM " & strDbTable & "Members WHERE " & strDbTable & "Members.HTMLformat=" & strDBTrue & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users lngHTMLFormat = CLng(rsCommon("HTMLCount")) 'Close rs rsCommon.Close 'Count plain text users strSQL = "SELECT Count(*) AS TextCount FROM " & strDbTable & "Members WHERE " & strDbTable & "Members.HTMLformat=" & strDBFalse & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users lngPlainTextFormat = CLng(rsCommon("TextCount")) 'Close rs rsCommon.Close 'Count of categories strSQL = "SELECT Count(*) AS CatCount FROM " & strDbTable & "Category;" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users intCategoryCount = CLng(rsCommon("CatCount")) 'Close rs rsCommon.Close 'Count of saved emails strSQL = "SELECT Count(*) AS SavedEmailCount FROM " & strDbTable & "Newsletter;" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users intSavedEmailsCount = CLng(rsCommon("SavedEmailCount")) 'Close rs rsCommon.Close 'Count of Templates strSQL = "SELECT Count(*) AS TemplateCount FROM " & strDbTable & "Template;" 'Query the database rsCommon.Open strSQL, adoCon 'Get the db result of Count active users intTemplatesCount = CLng(rsCommon("TemplateCount")) 'Close rs rsCommon.Close %> Mailing List Statistics
Mailing List Statistics
Return to the Mailing List menu Menu

From here you can view statistics for your Mailing List
Mailing List Statistics
Mailing List Name: <% = strWebsiteName %>
No. of Active Subscribers: <% = lngActiveMembersCount %>
No. of Non-Active Subscribers: <% = lngNonActiveMembersCount %>
No. of HTML Format Subscribers: <% = lngHTMLFormat %>
No. of Plain Text Format Subscribers: <% = lngPlainTextFormat %>
No. of Categories: <% = intCategoryCount %>
No. of Saved Emails: <% = intSavedEmailsCount %>
No. of Templates: <% = intTemplatesCount %>

<% 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Category.* FROM " & strDbTable & "Category ORDER BY Cat_Order ASC;" 'Set the curson type to 1 so we can count the number of records returned rsCommon.CursorType = 1 'Query the database rsCommon.Open strSQL, adoCon 'Intialise the ADO recordset object Set rsCatCount = Server.CreateObject("ADODB.Recordset") 'Loop through cats Do While NOT rsCommon.EOF 'Get the number of categories intNumOfCategories = rsCommon.RecordCount 'Read in cat details intCatID = rsCommon("Cat_ID") strCatName = rsCommon("Cat_Name") 'Get the cat count from db strSQL = "SELECT Count(*) AS CatCount FROM " & strDbTable & "MemCat WHERE " & strDbTable & "MemCat.Cat_ID=" & intCatID & ";" 'Query the database rsCatCount.Open strSQL, adoCon 'Get the db result of cat count intCatCount = CLng(rsCatCount("CatCount")) 'Close RS rsCatCount.Close %> <% 'Move to next record in rs rsCommon.MoveNext Loop 'Reset Server Variables Set rsCatCount = Nothing rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>
Mailing List Category - Total: <% = intCategoryCount %> Subscribers
<% = strCatName %> <% = intCatCount %>