<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "User" : Nav3 = "2" %> <% server.scripttimeout = 1000 response.buffer = true timeStart = Now num = 0 horNum = 1 if (session("svListID") <> "") then ListID = session("svListID") else ListID = 0 if (request("ListID") <> "") then ListID = request("ListID") if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" if (request("Action") <> "") then Action = lcase(trim(request("Action"))) else Action = "" %> <%=ListName%> - Spd E-Letter Administration

Delete Multiple Subscribers

<% If Action = "confirm" then %>
Delete Confirmation
Total Records:
 <% for each item in request("ID") num = num + 1 %> <% next %> <%=num%>
Delete Permanently?

Are you sure you want to delete these records?
Remember, this action cannot be undone.
<% Elseif Action = "delete" Then %> <% NumDel = 0 for each Subscriber in request("ID") if request("delPerm") = "Y" then if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Subscribers where SubscriberID = " & subscriber, ELetter_String) del = delCommand("DELETE" & delHeader & " FROM ML_Reads WHERE readSubscriberID = " & subscriber, ELetter_String) del = delCommand("DELETE" & delHeader & " FROM ML_Clicks WHERE clkSubscriberID = " & subscriber, ELetter_String) on error resume next del = delCommand("DELETE" & delHeader & " FROM ML_Emails WHERE emlSubscriberID = " & subscriber, ELetter_String) else mlConn.Execute("UPDATE ML_Subscribers SET subRemoved = 1, subRemovedDate = " & cfgDate & ", subMessageID = 0 WHERE SubscriberID = " & subscriber) end if NumDel = NumDel + 1 next ElapsedTime = DateDiff("s", TimeStart, Now) if IsNumeric(ListID) then set rsListName = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID) if (NOT rsListName.EOF) then delListName = rsListName("Listname") else delListname = "All" else delListName = "All" end if %>
Multiple Delete Finished
Deleted From List:
 <%=delListName%>
Records Deleted:
 <%=NumDel%>
Elapsed Time:
 <%=ElapsedTime%> second(s)
<%else %> <% If ListID = "None" then %>

You must set a list to view first.
<% elseIf ListID <> "None" Then %> <% set rsS = mlConn.Execute("SELECT * FROM ML_Subscribers WHERE ListID = " & ListID & " Order by Email ASC") %>
Change to Another List
<% if rsS.EOF then %> No Subscribers to this list at this time. Please choose another list.


<% else %>


<% Num =0 While (NOT rsS.EOF) Num = Num + 1 %> <% If Num = 1 Then %> <% End If %> <% If Num = 4 Then %> <% End If %> <% Response.Flush() If (Num = 4) Then Num = 0 rsS.MoveNext() Wend %>
"> <%=rsS("Email")%>
<% end if end if end if %>