<%@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 = "6" %> <% response.buffer = true server.scripttimeout = 1000 dim numSub, timeNow, listID, curPage, SN, SO if (IsNumeric(ViewNumSub)) then numPerPage = ViewNumSub else numPerPage = 25 if (request("PG") <> "" and IsNumeric(request("PG"))) then curPage = request("PG") else curPage = 1 if (request("SN") <> "") then SN = request("SN") else SN = "ML_Broadcast.MessageID" if (request("SO") <> "") then SO = request("SO") else SO = "ASC" if (session("svListID") <> "" AND IsNumeric(session("svListID"))) then ListID = CInt(session("svListID")) else ListID = 0 if (request("ListID") <> "" AND IsNumeric(request("ListID"))) then ListID = CInt(request("ListID")) if ListID = 0 then listWhereClause = listWhere(allowedLists, "ML_Broadcast.") if listWhereClause <> "" then listWhereClause = " WHERE " & listWhereClause else listWhereClause = "" else if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" listWhereClause = "ML_Broadcast.ListID = " & ListID end if if ListID = 0 then strSQL = "SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID " & listWhereClause & " ORDER BY " & SN & " " & SO strSQL2 = "SELECT Count(*) AS cnt1 FROM ML_Broadcast" else strSQL = "SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.ListID = " & ListID & " ORDER BY " & SN & " " & SO strSQL2 = "SELECT Count(*) AS cnt1 FROM ML_Broadcast WHERE ListID = " & ListID end if set rsGetEmails = Server.CreateObject("ADODB.Recordset") rsGetEmails.ActiveConnection = mlConn rsGetEmails.Source = strSQL rsGetEmails.CursorType = 1 rsGetEmails.CursorLocation = 3 rsGetEmails.LockType = 3 rsGetEmails.CacheSize = numPerPage rsGetEmails.Open() if NOT rsGetEmails.EOF then rsGetEmails.MoveFirst rsGetEmails.PageSize = numPerPage dim TotalPages : TotalPages = rsGetEmails.PageCount rsGetEmails.AbsolutePage = CurPage end if set rsCount = mlConn.Execute(strSQL2) NumMessages = rsCount("cnt1") set rsCount = nothing NumSub = 0 : TimeNow = Now %> <%=ListName%> - Spd E-Letter Administration

Email Report

<% If NOT rsGetEmails.EOF Then If ListID = 0 Then %> Viewing Emails for All Lists <% Else %> Viewing Emails for the <%=rsGetEmails("ListName")%> List <% End If End If %>

<%If rsGetEmails.EOF Then%> <% Else While ((numSub <= numPerPage) AND (NOT rsGetEmails.EOF)) NumSub = NumSub + 1 %> <% rsGetEmails.MoveNext() wend end if %>
Change List
<% If NOT rsGetEmails.EOF Then response.write("Page " & CurPage & " of " & TotalPages & "
") End If If CurPage > 1 Then %> [Prev]  <% End If For I = 1 To TotalPages %> <%=I%>  <% Next If CurPage < TotalPages Then %>  [Next] <% End If %>
Showing <%=NumPerPage%> results per page of <%=NumMessages%> Messages
#  ID   Subject   Status   Broadcasted To   Tracking   Recipients  Total Clicks   Action 

There are no emails associated with this list at this time.
<%=NumSub%>  <%=rsGetEmails("MessageID")%>  <%=rsGetEmails("Subject")%>    <% If rsGetEmails("MessageType") = "R" Then response.write rsGetEmails("Status") else response.write "Automated Email" end if %>   <%=rsGetEmails("ListName")%>   <%=rsGetEmails("BroadcastURLs")%> URLs   <%=rsGetEmails("msgActualRecipients")%>    <% clkCount = mlConn.execute("SELECT SUM(urlClicks) AS Count1 FROM ML_URLs WHERE MessageID = " & rsGetEmails("MessageID"))("Count1") if isnull(clkCount) then %> 0 <% else %> <%=clkCount%> <% end if %>