<%=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 = "2" %> <% ViewType = 1 If (Request("Type") <> "") Then ViewType = Request("Type") If (Request("Type") = "") Then ViewType = 1 If (ViewType > 2) Then ViewType = 1 msg = "0" If (Request("msg") <> "") then msg = Request("msg") 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("SN") <> "") then SN = request("SN") else SN = "SubscriberID" 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_Lists.") else if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" listWhereClause = "ML_Lists.ListID = " & ListID end if if ListID = 0 then strSQL = "SELECT * FROM ML_Pending INNER JOIN ML_Lists ON ML_Pending.ListID = ML_Lists.ListID WHERE ML_Pending.PendingType = " & ViewType if listWhereClause <> "" then strSQL = strSQL & " AND " & listWhereClause end if strSQL = strSQL & " ORDER BY " & sn & " " & so strSQL2 = "SELECT COUNT(*) AS cnt1 FROM ML_Pending WHERE PendingType = " & ViewType else strSQL = "SELECT * FROM ML_Pending INNER JOIN ML_Lists ON ML_Pending.ListID = ML_Lists.ListID WHERE ML_Pending.PendingType = " & ViewType & " AND ML_Lists.ListID = " & ListID & " ORDER BY " & sn & " " & so strSQL2 = "SELECT COUNT(*) AS cnt1 FROM ML_Pending WHERE PendingType = " & ViewType & " AND ListID = " & ListID end If set getRecords = mlConn.execute(strSQL) set cntRecords = mlConn.Execute(strSQL2) if getRecords.EOF then totalRecords = 0 totalPages = 1 else totalRecords = cntRecords("cnt1") : set cntRecords = 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 numRec = 0 %> <%=ListName%> - Spd E-Letter Administration

Pending <% If ViewType = 1 Then %> Subscriptions <% ElseIf ViewType = 2 Then %> Removals <% End if %>

<% If request("msg") = "1" Then %>

The action you selected was completed.

<% End If %> <% If getRecords.EOF Then %> <% Else %> <% while (NOT getRecords.EOF AND numRec < NR) numRec = numRec + 1 %> <% response.flush() getRecords.MoveNext() wend %> <% End If %>

Change List

Change Pending Type

<% 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 <%=NumPerPage%> results per page of <%=TotalRecords%> Pending <% If ViewType = 1 Then %> Subscriptions <% ElseIf ViewType = 2 Then %> Removals <% End if %>

Email Address

Name

Request

Format

Listname

Action

No Pending <% If ViewType = 1 Then %> Subscriptions <% ElseIf ViewType = 2 Then %> Removals <% End if %> at this time.

<%=NumRec%>

<%=getRecords("PendingID")%>

"><%=getRecords("Email")%>

<%=getRecords("Name")%>

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

<%= whichFormat(getRecords("Format"))%>

<%=getRecords("Listname")%>

<% set getRecords = nothing %>