<%@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" %> <% Response.Buffer = True Server.ScriptTimeout = 5 if (isNumeric(request("MessageID"))) then msgID = request("MessageID") else msgID = 0 if (msgID = 0) then response.redirect "message.asp?msg=20" set getMessage = mlConn.execute("SELECT ML_Broadcast.ListID AS ListID2, * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Broadcast.ListID = ML_Lists.ListID WHERE ML_Broadcast.MessageID = " & msgID) if (getMessage.EOF) then response.redirect "message.asp?msg=20" listID = getMessage("ListID2") if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" %> <%=ListName%> - Spd E-Letter Administration

Resume Errored Broadcast

<% if (lcase(getMessage("Status")) <> "broadcasting") then %>

The newsletter you chose has not errored. If you wish to view all errored or unfinished broadcasts, please go here. To view all stored messages, please go here.

<% else %> <% if DateDiff("s", getDateFromNum(getMessage("msgBroadcastedDate")), Now) > 180 then %>

You are about to resume broadcasting the newsletter below. Be advised that it is likely that this process will take some time before completion, depending on how many subscribers are remaining on queue. Please be patient while the script sends out individual emails to all subscribers. You must stay online while this process finishes.

Subject:
 <%=getMessage("Subject")%>
Message:
 Text Version | HTML Version
Broadcasting to the List:
 <%=getMessage("ListName")%>
From Name:
 <%=getMessage("FromName")%>
From Email:
 <%=getMessage("FromEmail")%>
Reply To:
 <%=getMessage("ReplyTo")%>

I have checked the above message and I am sure that I want to resume broadcasting this newsletter.
Force the Broadcast to use:

<% else %>

We're sorry, but the broadcast you chose to resume cannot be verified as errored. To prevent broadcasts from resuming while they are currently being broadcasted by someone else, be sure that at least 3 minutes has passed from the other/earlier broadcasted email to now. This is simply a security precaution. Please wait a few more minutes and try again. To return to the errored broadcast screen, click here.

Last Email Sent: <%=getDatefromNum(getMessage("msgBroadcastedDate"))%>
Current Time: <%=Now%>
Elapsed Time: <%=DateDiff("s", getDateFromNum(getMessage("msgBroadcastedDate")), Now)%> seconds

Retry the Resume

 

<% end if %> <% end if %>