<%=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" %> <% dim numSub, timeNow, listID, PG, SN, SO if (IsNumeric(ViewNumSub)) then NR = ViewNumSub else NR = 25 if (request("PG") <> "" and IsNumeric(request("PG"))) then PG = request("PG") else PG = 1 if (request.cookies("defNewsletterSortName") <> "") then SN = request.cookies("defNewsletterSortName") else SN = "MessageID" if (request("SN") <> "") then SN = request("SN") if (request.cookies("defNewsletterSortOrder") <> "") then SO = request.cookies("defNewsletterSortOrder") else SO = "DESC" if (request("SO") <> "") then SO = request("SO") 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_Broadcast.ListID = " & ListID end if if ListID = 0 then strSQL = "SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Broadcast.ListID = ML_Lists.ListID WHERE ML_Broadcast.sch = 1" if listWhereClause <> "" then strSQL = strSQL & " AND " & listWhereClause strSQL = strSQL & " ORDER BY " & SN & " " & SO strSQL2 = "SELECT COUNT(*) AS cnt1 FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Broadcast.ListID = ML_Lists.ListID WHERE ML_Broadcast.sch = 1" if listWhereClause <> "" then strSQL2 = strSQL2 & " AND " & listWhereClause else strSQL = "SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.sch = 1 AND ML_Broadcast.ListID = " & ListID & " ORDER BY " & SN & " " & SO strSQL2 = "SELECT COUNT(*) AS cnt1 FROM ML_Broadcast WHERE ML_Broadcast.sch = 1 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 getRecords.Move moveRecs end if numSub = 0 : TimeNow = Now %> <%=ListName%> - Spd E-Letter Administration

View Scheduled Broadcasts

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

<%If getRecords.EOF Then%> <% Else While (NOT getRecords.EOF) NumSub = NumSub + 1 %> <% schDate = getRecords("msgSchDate") if NOT isNumeric(schDate) then schDate = 0 end if %> <% getRecords.movenext() wend End If set getRecords = nothing %>

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 25 results per page of <%=numMessages%> Messages

Subject

To List

Scheduled For

Status

Action

There are no Scheduled Broadcasts for this list at this time.

<%=NumSub%>

<%=getRecords("MessageID")%>

<%=getRecords("Subject")%>

<%=getRecords("ListName")%>

<%=getDateFromNum(schDate)%>

<%=getRecords("Status")%>

">View Email Details | ">Delete Scheduled