<%=ListName%> - Spd E-Letter Administration

<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "Broadcast" Dim Nav3 : Nav3 = "5" %> <% Response.Buffer = True Server.ScriptTimeout = 5 Const NumPerPage = 25 'Const NumPerPage = ViewNumSub Dim CurPage : CurPage = 1 if (Request.QueryString("pg") <> "") then CurPage = Request.QueryString("pg") 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.") else if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" listWhereClause = " ML_Subscribers.ListID = " & ListID end if Dim rs_name : rs_name = "ML_Broadcast.MessageID" if (Request.QueryString("N") <> "") then rs_name = Request.QueryString("N") if (Request.QueryString("N") = "ListID") then rs_name = "ML_Broadcast.ListID" Dim rs_sort : rs_sort = "DESC" if (Request.QueryString("S") <> "") then rs_sort = Request.QueryString("S") If ListID = 0 then strSQL = "SELECT * From ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.Status <> 'Broadcasted' AND ML_Broadcast.Status <> 'Pending' AND ML_Broadcast.MessageType = 'R' " if listWhereClause <> "" then strSQL = strSQL & " AND (" & listWhereClause & ") " strSQL = strSQL & " ORDER BY " & rs_name & " " & rs_sort strSQL2 = "Select * FROM ML_Broadcast WHERE MessageType = 'R' AND Status <> 'Broadcasted' AND Status <> 'Pending'" Else strSQL = "SELECT * From ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.Status <> 'Broadcasted' AND ML_Broadcast.Status <> 'Pending' AND ML_Broadcast.MessageType = 'R' AND ML_Broadcast.ListID = " & ListID & " ORDER BY " & rs_name & " " & rs_sort strSQL2 = "Select * FROM ML_Broadcast WHERE MessageType = 'R' AND Status <> 'Broadcasted' AND Status <> 'Pending' AND 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 = Server.CreateObject("ADODB.Recordset") rsCount.ActiveConnection = mlConn rsCount.Source = strSQL2 rsCount.CursorType = 1 rsCount.CursorLocation = 3 rsCount.LockType = 3 rsCount.Open() NumMessages = rsCount.RecordCount rsCount.Close() Set rsCount = Nothing Dim Repeat1__numRows : Repeat1__numRows = NumPerPage Dim Repeat1__index : Repeat1__index = 0 rsGetSubscribers_numRows = rsGetSubscribers_numRows + Repeat1__numRows Dim NumSub : NumSub = 0 Dim TimeNow : TimeNow = Now %> <%=ListName%> - Spd E-Letter Administration

Resume Errored Broadcast

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

<%If rsGetEmails.EOF Then%> <% Else While ((Repeat1__numRows <> 0) AND (NOT rsGetEmails.EOF)) NumSub = NumSub + 1 %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-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

Subject

To List

Created

Status

Scheduled

Action

There are no Errored Broadcasts to resume at this time.

<%=NumSub%>

<%=rsGetEmails("MessageID")%>

<%=rsGetEmails("Subject")%>

<%=rsGetEmails("ListName")%>

<%=getDateFromNum(rsGetEmails("msgCreatedDate"))%>

<%=rsGetEmails("Status")%>

<% if rsGetEmails("sch") = 1 then%>Yes (<%=FormatDateTime(DateAdd("s", rsGetEmails("schDate"), fromDate), VBShortDate)%> <% hourDiff = (rsGetEmails("schDate")/60)/60 if hourDiff mod 24 > 12 then %> PM <% else %> AM <% end if %> ) <% else %>No<% end if %>

">Resume Broadcast