<%@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" %> <% SubscriberID = request("ID") if (request("SubscriberID") <> "") then SubscriberID = request("SubscriberID") if (SubscriberID = "") then response.redirect "message.asp?msg=20" strSQL = "SELECT ML_Subscribers.SubscriberID, ML_Subscribers.Name, ML_Subscribers.SubscribedDate, ML_Subscribers.Email, ML_Subscribers.Format, ML_Subscribers.ListID AS ListID2, ML_Subscribers.numClicks, ML_Subscribers.numReads, ML_Subscribers.numBounces, ML_Subscribers.numReplies, ML_Lists.Listname, ML_Lists.ListID From ML_Subscribers INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Subscribers.ListID WHERE ML_Subscribers.SubscriberID = " & SubscriberID set rsDelete = mlConn.Execute(strSQL) if (rsDelete.EOF) then response.redirect "message.asp?msg=20" delEmail = rsDelete("Email") delList = rsDelete("ListName") ListID = rsDelete("ListID2") if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" if request("action") = "delete" then if request("delPerm") = "Y" then if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Subscribers where SubscriberID = " & subscriberID, ELetter_String) del = delCommand("DELETE" & delHeader & " FROM ML_Reads WHERE readSubscriberID = " & subscriberID, ELetter_String) del = delCommand("DELETE" & delHeader & " FROM ML_Clicks WHERE clkSubscriberID = " & subscriberID, ELetter_String) on error resume next del = delCommand("DELETE" & delHeader & " FROM ML_Emails WHERE emlSubscriberID = " & subscriberID, ELetter_String) else mlConn.Execute("UPDATE ML_Subscribers SET subRemoved = 1, subRemovedDate = " & cfgDate & ", subMessageID = 0 WHERE SubscriberID = " & subscriberID) end if response.redirect "message.asp?msg=22&email=" & Server.URLEncode(delEmail) & "&Listname=" & Server.URLEncode(delList) end if %> <%=ListName%> - Spd E-Letter Administration

Delete Subscriber

Are you sure you wish to delete this subscriber?

Name:
 <%=rsDelete("Name")%>
Email Address:
 <%=rsDelete("Email")%>
List Name:
 <%=rsDelete("ListName")%>
Format:
 <% Format = whichFormat(rsDelete("Format")) : response.write Format %>
Number of Clicks:
 <%=rsDelete("numClicks")%>
Number of Reads:
 <%=rsDelete("numReads")%>
Number of Bounces:
 <%=rsDelete("numBounces")%>
Number of Replies:
 <%=rsDelete("numReplies")%>
Subscribed:
 <% subDate = getDateFromNum(rsDelete("SubscribedDate")) subDays = DateDiff("d", subDate, Now) %> <%=subDate%> (<%=subDays%> days)
Delete Permanently?:

 

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