<%=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 = "User" Dim Nav3 : Nav3 = "5" %> <% dim numSub, timeNow, listID, curPage, SN, SO if (IsNumeric(ViewNumSub)) then NR = ViewNumSub else NR = 25 if (request("PG") <> "" and IsNumeric(request("PG"))) then curPage = request("PG") else curPage = 1 if (request("SN") <> "") then SN = request("SN") else SN = "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 (request("msgStatus") <> "") then msgStatus = cstr(request("msgStatus")) else msgStatus = "1" if msgStatus = "4" then msgStatusF = "Broadcasted" elseif msgStatus = "3" then msgStatusF = "Broadcasting" elseif msgStatus = "2" then msgStatusF = "Pending" else msgStatusF = "%" end if if ListID = 0 then listWhereClause = listWhere(allowedLists, "ML_Broadcast.") 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 WHERE ML_Broadcast.MessageType = 'S'" if listWhereClause <> "" then strSQL = strSQL & " AND " & listWhereClause strSQL = strSQL & " ORDER BY " & SN & " " & SO strSQL2 = "SELECT Count(*) AS cnt1 FROM ML_Broadcast WHERE MessageType = 'S'" else strSQL = "SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.MessageType = 'S' AND ML_Broadcast.ListID = " & ListID & " ORDER BY " & SN & " " & SO strSQL2 = "SELECT Count(*) AS cnt1 FROM ML_Broadcast WHERE MessageType = 'S' AND ListID = " & ListID end if set getRecords = Server.CreateObject("ADODB.Recordset") getRecords.ActiveConnection = mlConn getRecords.Source = strSQL getRecords.CursorType = 1 getRecords.LockType = 3 getRecords.Open() set recCount = mlConn.Execute(strSQL2) if getRecords.EOF then totalRecords = 0 totalPages = 1 else totalRecords = recCount("cnt1") : set recCount = nothing totalPages = Int(totalRecords / NR) if totalRecords mod NR > 0 then totalPages = totalPages + 1 if PG > 2 then moveRecs = NR * (PG - 1) else moveRecs = 0 if (PG > 1) AND (moveRecs <= totalRecords) then moveRecs = (NR * (PG - 1)) else moveRecs = 0 end if if (NOT getRecords.EOF) then getRecords.Move moveRecs end if NumSub = 0 : TimeNow = Now %> <%=ListName%> - Spd E-Letter Administration

View Automated Emails

Create Newsletter | View Stored Newsletters | Create New Automated Email

Learn more about "Automated Emails"

<%If getRecords.EOF Then%> <% else while ((numSub <= NR) AND (NOT getRecords.EOF)) numSub = numSub + 1 %> <% getRecords.movenext wend end if %>

Change List

<% if NOT getRecords.EOF then response.write("Page " & PG & " of " & TotalPages & "
") end if if PG > 1 then %> [Prev] <% end if for i = 1 to totalPages %> <%=I%> <% next if PG < TotalPages then %> [Next] <% end if %>
Showing <%=NR%> results per page of <%=TotalRecords%> Messages

Subject

To List

Created

Send After

Action

There are no Automated Emails Scheduled to this list at this time.

<%=NumSub%>

<%=getRecords("MessageID")%>

<%=getRecords("Subject")%>

<%=getRecords("ListName")%>

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

<%=getRecords("NumDays")%> Days

<% set getRecords = nothing %>