<%@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 = "4" %> <% response.buffer = true server.scripttimeout = 100 if (request("ListID") <> "" and IsNumeric(request("ListID"))) then listID = cint(request("ListID")) else listID = 0 if listID = 0 then response.redirect "message.asp?msg=20" if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" set rsList = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID) if (rsList.EOF) then response.Redirect "message.asp?msg=20" delListName = rsList("ListName") if request("action") = "delete_list" Then if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Lists where ListID = " & listID, ELetter_String) del = delCommand("DELETE" & delHeader & " FROM ML_Subscribers WHERE ListID = " & listID, ELetter_String) set getMsgs = mlConn.Execute("SELECT * FROM ML_Broadcast WHERE ListID = " & listID, ELetter_String) while NOT getMsgs.EOF msgID = getMsgs("MessageID") del = delCommand("DELETE" & delHeader & " FROM ML_Reads WHERE readMessageID = " & msgID, ELetter_String) set getURLs = mlConn.Execute("SELECT * FROM ML_URLs WHERE MessageID = " & msgID) while NOT getURLs.EOF del = delCommand("DELETE" & delHeader & " FROM ML_Clicks WHERE clkURLID = " & getURLs("urlID"), ELetter_String ) getURls.movenext wend set getURLs = nothing getMsgs.Movenext wend set getMsgs = nothing if delListName = Session("svList") then response.redirect "message.asp?msg=14&list=" & Server.URLEncode(delListName) else response.redirect "message.asp?msg=21&list=" & Server.URLEncode(delListName) end if end if %> <%=ListName%> - Spd E-Letter Administration

Delete List

Are you sure you want to delete the following list? By deleting the list, you will delete all Subscribers, Messages, and Reports that are associated with it. It is recommended you export your list of subscribers before continuing. Remember, this action CANNOT be undone. Please note that this could take several seconds to complete.
List Name: <%=rsList("ListName")%>
Public: <%if (rsList("PublicList") = "Y") then Response.Write "Yes" Else Response.Write "No" %>
Created: <%=getDateFromNum(rsList("CreatedDate"))%>
Created By: <%=rsList("CreatedBy")%>
Total Subscribers: <% set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = mlConn rs1.Source = "SELECT * FROM ML_Subscribers WHERE ListID = " & ListID rs1.CursorType = 1 rs1.CursorLocation = 3 rs1.LockType = 3 rs1.Open() If NOT rs1.EOF Then rs1Num = rs1.RecordCount Set rs1 = Nothing Response.Write rs1Num End If %>
Last Email Sent on: <%=getDateFromNum(rsList("LastEmailSentDate"))%>
">



<% rsList.Close() Set rsList = Nothing %>