<%=Session("SiteName")%>

<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '** PREVENT PAGE FROM BEING CACHED Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" If Request.Cookies("login") = "" Then Response.Write("") Elseif Request.Cookies("login") = "3" Then Response.Write("") End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If %> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** Dim rs %> <%=Session("SiteName")%> - Home

MailerPro Administration

Home

List Options

','topics.asp');" CLASS="NavOff" ; nowrap> Online Help

Log Off

Home	Form Wizard

If you require help at any stage, just click on the Online Help.

Statistics

List Name

Total Subscribers

Verified

Un-verified

Subscribed Today

<% Set rs = conn.execute("Select * From " & tbl_prefix & "listnames") If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF Then Do While Not rs.EOF %>

<%=rs("list_name")%>

<%=FormatNumber(totalsubscribers(rs("ID")),0)%>

<%=FormatNumber(totalverified(rs("ID")),0)%>

<%=FormatNumber(totalunverified(rs("ID")),0)%>

<%=FormatNumber(subscribedtoday(rs("ID")),0)%>

<% rs.MoveNext Loop Else %> No Lists Created. <% End If rs.Close Set rs = nothing %>

<% '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.Close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>