<%=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" %> <% on error goto 0 Action = 0 If (request("Action") <> "") Then Action = request("Action") If (request("Action") > 6) Then Action = 0 if (Action = 0) Then response.redirect "pending_view.asp" if (request("PendingID") <> "" AND IsNumeric(request("PendingID"))) then PendingID = clng(request("PendingID")) else PendingID = 0 if action = 4 Then mlConn.Execute("DELETE " & delHeader & " FROM ML_Pending WHERE PendingID = " & PendingID) response.redirect "pending_view.asp?msg=1&Type=" & request("Type") end If if action = 6 then set rsGet = Server.CreateObject("ADODB.Recordset") rsGet.ActiveConnection = mlConn rsGet.Source = "SELECT ML_Lists.ListID AS ListID2, * FROM ML_Pending INNER JOIN ML_Lists ON ML_Pending.ListID = ML_Lists.ListID WHERE ML_Pending.PendingID = " & PendingID rsGet.CursorType = 3 rsGet.Open() if (rsGet.EOF) then response.redirect "message.asp?msg=20" if NOT allowedList(rsGet("ListID2"), allowedLists) then response.redirect "message.asp?msg=49" subEmail = rsGet("Email") subName = rsGet("Name") subListID = rsGet("ListID2") subSubscriberID = rsGet("SubscriberID") subFormat = rsGet("Format") subPendingType = rsGet("PendingType") set rsGet = nothing if subPendingType = 1 then set DupCheck = mlConn.execute("SELECT * FROM ML_Subscribers WHERE Email = '" & Replace(subEmail, "'", "''") & "' AND ListID = " & subListID & " AND subRemoved <> 1") if DupCheck.EOF then rsInsert = mlConn.Execute("INSERT INTO ML_Subscribers (Name, Email, ListID, Format, SubscribedDate, numClicks, numReads, numBounces, numReplies, subRemoved, subMessageID, subRemovedDate) VALUES ('" & Replace(subName, "'", "''") & "','" & Replace(subEmail, "'", "''") & "','" & subListID & "','" & subFormat & "'," & cfgDate & ",0,0,0,0,0,0,0)") mlConn.Execute ("DELETE " & delHeader & " FROM ML_Pending WHERE PendingID = " & PendingID) response.redirect "pending_view.asp?msg=1" else mlConn.Execute ("DELETE " & delHeader & " FROM ML_Pending WHERE PendingID = " & PendingID) response.redirect "message.asp?msg=6&email=" & Server.URLEncode(subEmail) end If elseif subPendingType = 2 then mlConn.Execute("DELETE " & delHeader & " FROM ML_Subscribers WHERE SubscriberID = " & subSubscriberID) mlConn.Execute ("DELETE " & delHeader & " FROM ML_Pending WHERE PendingID = " & PendingID) response.redirect "pending_view.asp?msg=1" end If end If %> <%=ListName%> - Spd E-Letter Administration

<% If Action = 1 Then %> <% set rs = mlConn.Execute("SELECT ML_Lists.ListID AS ListID2, * FROM ML_Pending INNER JOIN ML_Lists ON ML_Pending.ListID = ML_Lists.ListID WHERE ML_Pending.PendingID = " & PendingID) if (rs.EOF) then response.redirect "message.asp?msg=20" if NOT allowedList(rs("ListID2"), allowedLists) then response.redirect "message.asp?msg=49" %>

Delete The Pending <% pendingType = rs("PendingType") if pendingType = 1 then %> Subscription <% ElseIf pendingType = 2 Then %> Removal <% End If %>

Are you sure you want to remove this Pending Request? Remember, this action cannot be undone and the subscriber will not be able to complete this action themself.

<% end if if Action = 3 then set rs = mlConn.Execute("SELECT ML_Lists.ListID AS ListID2, * FROM ML_Pending INNER JOIN ML_Lists ON ML_Pending.ListID = ML_Lists.ListID WHERE ML_Pending.PendingID = " & PendingID) if (rs.EOF) then response.redirect "message.asp?msg=20" if NOT allowedList(rs("ListID2"), allowedLists) then response.redirect "message.asp?msg=49" %>

Complete Pending <% pendingType = rs("PendingType") if pendingType = 1 then %> Subscription <% ElseIf pendingType = 2 Then %> Removal <% End If %>

<% pendingType = rs("PendingType") if pendingType = 1 then %> By confirming this action, the subscriber shown below will be added to the specified list. <% elseIf pendingType = 2 then %> By confirming this action, the subscriber shown below will be deleted from the specified list. <% end if %> Remember, the subscriber will not be able to complete this action themself.

<% End If %>