<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "Broadcast" Dim Nav3 : Nav3 = "5" %> <% Action = "none" If (Request("Action") <> "") then Action = Request("Action") if (request("msgID") <> "" and IsNumeric(request("msgID"))) then msgID = CInt(request("msgID")) else msgID = 0 if (msgID = 0) then response.redirect "message.asp?msg=20" set getMsg = server.createobject("ADODB.Recordset") getMsg.activeconnection = mlConn getMsg.source ="SELECT ML_Broadcast.ListID AS msgListID, * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Broadcast.ListID = ML_Lists.ListID WHERE ML_Broadcast.MessageID = " & msgID getMsg.cursortype = 3 getMsg.open() if (getMsg.EOF) then response.redirect "message.asp?msg=20" if NOT allowedList(getMsg("msgListID"), allowedLists) then response.redirect "message.asp?msg=49" msgType = getMsg("MessageType") if Action = "DeleteEntry" then if (request("deletAll") = "Y") then deleteAll = true else deletAll = false if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Broadcast WHERE MessageID = " & msgID, ELetter_String ) 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 if deleteAll then del = delCommand("DELETE" & delHeader & " FROM ML_URLs WHERE MessageID = " & msgID, ELetter_String ) end if if (ucase(msgType) = "S") then response.redirect "message.asp?msg=29" else response.redirect "message.asp?msg=28" end If %> <%=ListName%> - Spd E-Letter Administration

Delete Message

Are you sure you want to delete this message? Deleting this message will also disable any reports for this message. Remember, this action cannot be undone.

<% If getMsg("MessageType") = "S" Then %> <% End if %>
From Email: <%=getMsg("FromEmail")%>
From Name: <%=getMsg("FromName")%>
Reply To: <%=getMsg("ReplyTo")%>
HELP! Priority: <% if getMsg("MessagePriority") = 1 then %>1 - Highest Importance <% elseif getMsg("MessagePriority") = 5 then %>5- Lowest Importance<% else %>3 - Medium Importance<% end if %>
To List: <%=getMsg("Listname")%>
Subject: <%=getMsg("Subject")%>
Message: ')">HTML | ')">Text
HELP! Send after: <%=getMsg("NumDays")%> days

Delete all tracked URLs.
I understand this will make all Tracked URLs broken and they will no longer redirect.

">