<%@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" %> <% if (request("msgID") <> "" AND IsNumeric(request("msgID"))) then msgID = clng(request("msgID")) else msgID = 0 set getRecord = mlConn.Execute("SELECT ML_Lists.ListID AS ListID2, * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Broadcast.ListID = ML_Lists.ListID WHERE ML_Broadcast.MessageID = " & msgID) if (getRecord.EOF) then response.redirect "message.asp?msg=20" if NOT allowedList(getRecord("ListID2"), allowedLists) then response.redirect "message.asp?msg=49" if request("action") = "go" then set getRecord = nothing mlConn.Execute("UPDATE ML_Broadcast SET sch = 0, schBy = '" & session("svUsername") & "' WHERE MessageID = " & msgID) response.redirect "message.asp?msg=46" end if %> <%=ListName%> - Spd E-Letter Administration

Unschedule Broadcast

Are you sure you want to un-schedule this message?

To List: <%=getRecord("Listname")%>
Subject: <%=getRecord("Subject")%>
HELP! Priority: <% msgPriority = cint(getRecord("MessagePriority")) %> <% if msgPriority = 1 then %> 1 - Highest Importance <% elseif msgPriority = 3 then %> 3 - Medium Importance <% elseif msgPriority = 5 then %> - Lowest Importance <% end if %>
Message: HTML | Text
Scheduled Broadcast Date: <% msgSchDate = getRecord("msgSchDate") schDate = getDateFromNum(msgSchDate) response.write FormatDateTime(schDate, VBShortDate) hourDiff = (msgSchDate/60)/60 if hourDiff mod 24 > 12 then %> PM <% else %> AM <% end if %>

<% set getRecord = nothing %>