<%@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_Broadcast SET msgFormat = 1 WHERE msgFormat IS NULL") If (request("msgID") <> "" AND IsNumeric(request("msg"))) then msgID = request("msgID") else msgID = 0 set rsGetMessage = server.createobject("ADODB.Recordset") rsGetMessage.activeconnection = mlConn rsGetMessage.source = "SELECT ML_Broadcast.ListID AS msgListID, ML_Broadcast.CreatedBy AS msgCreatedBy, * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Broadcast.ListID WHERE ML_Broadcast.MessageID = " & msgID rsGetMessage.cursortype = 3 rsGetMessage.open() if (rsGetMessage.EOF) then response.redirect "message.asp?msg=20" listID = rsGetMessage("msgListID") if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" msgSource = rsGetMessage("msgSource") msgFormat = rsGetMessage("msgFormat") msgType = ucase(rsGetMessage("MessageType")) %> <%=ListName%> - Spd E-Letter Administration

<% if msgType = "S" then %>Preview Automated Email <% else %>Preview Newsletter <% end If %>

<% msgUseSQL = rsGetMessage("msgUseSQL") %> <% if msgSource = 2 or msgSource = 3 then %> <% end if %> <% if msgType = "R" then %> <% end if %>
Newsletter Type:
 <% if msgType = "S" then %> Automated Email <% else %> Regular Newsletter <% end if %>
Assigned List:
 <%=rsGetMessage("ListName")%>
From:
<%=rsGetMessage("FromName")%>, <%=rsGetMessage("FromEmail")%>
Reply To:
 <%=rsGetMessage("ReplyTo")%>
HELP! Priority:
 <% If rsGetMessage("MessagePriority") = 1 then %> 1 - High Importance <% elseIf rsGetMessage("MessagePriority") = 3 then %> 3 - Medium Importance <% elseIf rsGetMessage("MessagePriority") = 5 then %> - Low Importance <% end if %>
Subject:
<%=rsGetMessage("Subject")%>
Filter Type:
 <% if msgUseSQL = 2 then %> Custom SQL Query <% else %> Regular Filters <% end if %>
Filters:
 <% if msgType = "S" then %> <% else if msgUseSQL = 2 then %> <% else %> <% end if %> <% end if %>
Send after subscribed for <%=rsGetMessage("NumDays")%> day(s)
<%=rsGetMessage("msgSQLStr")%>
Subscribed after <%=getDateFromNum(rsGetMessage("msgSinceDateF"))%> but before <%=getDateFromNum(rsGetMessage("msgToDateF"))%>
With at least <%=rsGetMessage("msgLowClicksF")%> clicks, but under <%=rsGetMessage("msgHighClicksF")%> clicks
With at least <%=rsGetMessage("msgLowReadsF")%> reads, but under <%=rsGetMessage("msgHighReadsF")%> reads
Format:
 <% if rsGetMessage("msgFormat") = 3 then %> HTML Only <% elseif rsGetMessage("msgFormat") = 2 then %> Text Only <% else %> Subscriber's Choice <% end if %>
Source:
 <% if msgSource = 2 then %> File <% elseif msgSource = 3 then %> Executed URL <% else %> Entered Data <% end if %>
Source <% if msgSource = 3 then %> URL <% else %> Text <% end if %> :
Text: <% if msgFormat = 1 or msgFormat = 2 then %> <% if msgSource = 2 then %> <%=rsGetMessage("msgSourceFileText")%> <% else %> <%=rsGetMessage("msgSourceURLText")%> <% end if %> <% else %> None <% end if %>
HTML: <% if msgFormat = 1 or msgFormat = 3 then %> <% if msgSource = 2 then %> <%=rsGetMessage("msgSourceFileHTML")%> <% else %> <%=rsGetMessage("msgSOurceURLHTML")%> <% end if %> <% else %> None <% end if %>
Created:
 <%=getDateFromNum(rsGetMessage("msgCreatedDate"))%> by <%=rsGetMessage("msgCreatedBy")%>
Last Modified:
 <%=getDateFromNum(rsGetMessage("msgLastModifiedDate"))%> by <%=rsGetMessage("LastModifiedBy")%>
Broadcast Date:
 <% msgBroadcastedDate = rsGetMessage("msgBroadcastedDate") if msgBroadcastedDate <> "" then %> <%=getDateFromNum(msgBroadcastedDate)%> <% If rsgetMessage("BroadcastedBy") <> "" Then %> by <%=rsGetMessage("BroadcastedBy")%> <% end if else %> Pending <% end if %>
Scheduled:
 <% if rsGetMessage("sch") = 1 then%> <%=getDateFromNum(rsGetMessage("msgSchDate"))%> - " title="Unschedule this newsletter">Unschedule It <% else %> No <% if rsGetMessage("Status") = "Pending" then %> - " title="Schedule this newsletter">Schedule It <% end if %> <% end if %>
Report:
 " title="View the detailed report on this newsletter">View the Newsletter Report
Body:
<% msgFormat = rsGetMessage("msgFormat") %> View The - <% if msgFormat = 1 or msgFormat = 2 then %> ')" title="View the Text version of this newsletter">Text Version <% end if %> <% if msgFormat = 1 then %>  |  <% end if %> <% if msgFormat = 1 or msgFormat = 3 then %> ')" title="View the HTML version of this newsletter">HTML Version <% end if %>

What do you want to do now?
<% If rsGetMessage("MessageType") = "R" Then %>

<% If rsGetMessage("Status") = "Pending" Then %> " title="Edit this newsletter">Edit Newsletter | " title="Broadcast this newsletter">Broadcast This Newsletter | <% End if %> " title="Send this same newsletter to a new list">Send it to a New List | ">Delete Newsletter <% ElseIf rsGetMessage("MessageType") = "S" Then %>

" title="Edit this newsletter">Edit Newsletter | " title="Delete this newsletter">Delete Newsletter


<% rsGetmessage.Close() Set rsGetMessage = Nothing %>