<%@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" %> <% Session.LCID = (1033) dim MID : MID = 0 if (request("msgID") <> "") then MID = request("msgID") If MID = 0 or NOT IsNumeric(MID) then response.redirect "message.asp?msg=20" set getMessage = mlConn.Execute("SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.MessageID = " & MID) if getMessage.EOF then response.redirect "message.asp?msg=20" elseif getMessage("sch") = 1 then response.redirect "message.asp?msg=44" elseif getMessage("MessageType") <> "R" then response.redirect "message.asp?msg=44" end if varYear = DatePart("yyyy", Now) if (request("varYear") <> "") then varYear = Request("varYear") varMonth = DatePart("m", Now) if (request("varMonth") <> "") then varMonth = Request("varMonth") varDay = DatePart("d", Now) if (request("varDay") <> "") then varDay = Request("varDay") varHour = DatePart("h", Now) + 1 if (request("varHour") <> "") then varHour = request("varHour") varAMPM = "AM" If (request("varAMPM") <> "") then varAMPM = Request("varAMPM") schDate = VarMonth & "/" & varDay & "/" & varYear & " " & varHour & ":00:00 " & varAMPM schDate = CDate(schDate) schDateNum = getNumFromDate(schDate) if lcase(request("Action")) = "schedule" then if NOT IsDate(schDate) then msg = 1 else if DateDiff("h", Now, schDate) < 0 then msg = 2 else strSQL = "UPDATE ML_Broadcast SET sch = 1, msgSchDate = " & schDateNum & ", schBy = '" & Session("svUsername") & "', msgSchByDate = " & cfgDate & " WHERE MessageID = " & MID mlConn.Execute(strSQL) response.redirect "message.asp?msg=45" end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Schedule A Broadcast

<% if action = 1 then %> <% response.redirect "message_view.asp" %> <% else %> <% if msg = 1 then %>
Invalid Date.

<% elseif msg = 2 then %>
Invalid Date. The scheduled date must be for a date and time in the future.

<% end if %>

Using the new automation features of the Spd E-Letter, you can schedule the date and time of which you would like this newsletter to be sent out. Simply confirm that this is the newsletter you would like to broadcast, set the date and time, and hit "Schedule It". Please refer to this page for instructions on how to enable the automated fetures of the Spd E-Letter.

The automated features are designed to be run 4 times a day, or every 6 hours. If you schedule a broadcast for 8 AM on a certain day but the automated script is not ran until 10 AM that day, then your broadcast will go out then. The automated tasks were last run on <%=lastScheduledRun%>. The next anticipated run date is <%=dateAdd("h", 6, lastScheduledRun)%>, at which time any scheduled broadcasts prior to that date and time will be run.

Subject: <%=getMessage("Subject")%>
To List: <%=getMessage("ListName")%>
Message: ')">Text Version | ')">HTML Version
Current Server Time: <%=Now%>
Schedule this email for:   
  Format: Month/Day/Year Hour AM/PM
<% end if %>