<%@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" %> <% mlConn.Execute("UPDATE ML_Subscribers SET numReads = 0 WHERE numReads IS NULL") mlConn.Execute("UPDATE ML_Subscribers SET numBounces = 0 WHERE numBounces IS NULL") mlConn.Execute("UPDATE ML_Subscribers SET numReplies = 0 WHERE numReplies IS NULL") mlConn.Execute("UPDATE ML_Subscribers SET numClicks = 0 WHERE numClicks IS NULL") mlConn.Execute("UPDATE ML_Subscribers SET subRemoved = 0 WHERE subRemoved IS NULL") if (request("msgID") <> "" AND IsNumeric(request("msgID"))) then MessageID = request("msgID") else MessageID = 0 set getMessage = mlConn.Execute("SELECT ML_Broadcast.ListID AS msgListID, * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.MessageID = " & MessageID) if getMessage.EOF then response.redirect "message.asp?msg=20" elseif getMessage("Status") = "Broadcasted" then response.redirect "message.asp?msg=30" end if if not allowedList(getMessage("msgListID"), allowedLists) then response.redirect "message.asp?msg=49" %> <%=ListName%> - Spd E-Letter Administration

Broadcast Newsletter

You may begin broadcasting now. The broadcast will start and refresh the page automatically from time to time. Please do not close this window until the broadcast has completed. You will know when your broadcast is complete when you are redirected to the results page of your broadcast, and that is when you may navigate as normal. Sorry for the delay, you may now continue by selecting a choice below.

&mailer=<%=Request("Mailer")%>"> Start The Broadcast

Do Not Broadcast