<%@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) %> <% if (session("svListID") <> "" AND IsNumeric(session("svListID"))) then ListID = CInt(session("svListID")) else ListID = 0 if (request("ListID") <> "" AND IsNumeric(request("ListID"))) then ListID = CInt(request("ListID")) if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" if (ucase(request("msgType")) = "R" or ucase(request("msgType")) = "S") then msgType = ucase(request("msgType")) if (isnumeric(request("msgID")) and request("msgID") <> "") then msgID = CInt(request("msgID")) else msgID = 0 if (isnumeric(request("msgOldID")) and request("msgOldID") <> "") then msgOldID = CInt(request("msgOldID")) else msgOldID = 0 msgPriority = 3 : msgNumDays = 0 : msgSource = 1 : msgFormat = 1 : msgLowClicksF = 0 : msgHighClicksF = 9999 : msgLowReadsF = 0 : msgHighReadsF = 9999 msgSinceDateBit = true: msgToDateBit = true varMonth = 1 : varDay = 1 : varYear = 1990 : varHour = 12 : varMinute = 0 : varSecond = 0 : varAMPM = "AM" varMonth2 = 12 : varDay2 = 31 : varYear2 = 2010 : varHour2 = 12 : varMinute2 = 0 : varSecond2 = 0 : varAMPM2 = "PM" msgSourceTextTimes = 1 : msgSourceHTMLTimes = 1 : msgIncludeTemplateText = 1 : msgIncludeTemplateHTML = 1 msgUseSQL = 1 : msgSincedateNum = 0 : msgToDateNum = 0 if (msgOldID <> 0 or msgID <> 0) then if (msgOldID <> 0) then msgNewID = msgOldID else msgNewID = msgID set getMsg = server.createobject("ADODB.Recordset") getMsg.activeconnection = mlConn getMsg.source = "SELECT * FROM ML_Broadcast WHERE MessageID = " & msgNewID getMsg.cursortype = 3 getMsg.open() if (getMsg.EOF) then response.redirect "message.asp?msg=20" if (getMsg("MessageType") <> "") then msgType = getMsg("MessageType") else msgType = "R" if (getMsg("msgFormat") <> "") then msgFormat = getMsg("msgFormat") else msgFormat = 1 if (getMsg("msgSource") <> "") then msgSource = getMsg("msgSource") else msgSource = 1 ListID = getMsg("ListID") msgFromName = getMsg("FromName") msgFromEmail = getMsg("FromEmail") msgReplyTo = getMsg("ReplyTo") msgSubject = getMsg("Subject") msgFormat = getMsg("msgFormat") msgPriority = getMsg("MessagePriority") msgNumDays = getMsg("numDays") if (getMsg("MessagePriority") <> "") then msgPriority = getMsg("MessagePriority") else msgPriority = 3 msgSinceDateNum = getMsg("msgSinceDateF") msgSinceDateBit = false msgSinceDate = getDateFromNum(msgSinceDateNum) varMonth = DatePart("m", msgSinceDate) : varDay = DatePart("d", msgSinceDate) : varYear = DatePart("yyyy", msgSinceDate) : varHour = DatePart("h", msgSinceDate) : varMinute = DatePart("n", msgSinceDate) : varSecond = DatePart("s", msgSinceDate) : varAMPM = Right(Trim(msgSinceDate),2) msgToDateNum = getMsg("msgToDateF") msgToDateBit = false msgToDate = getDateFromNum(msgToDateNum) varMonth2 = DatePart("m", msgToDate) : varDay2 = DatePart("d", msgToDate) : varYear2 = DatePart("yyyy", msgToDate) : varHour2 = DatePart("h", msgToDate) : varMinute2 = DatePart("n", msgToDate) : varSecond2 = DatePart("s", msgToDate) : varAMPM2 = Right(Trim(msgToDate),2) if (NOT varYear2 <> "") then varYear2 = 2010 msgLowClicksF = getMsg("msgLowClicksF") msgHighClicksF = getMsg("msgHighClicksF") msgLowReadsF = getMsg("msgLowReadsF") msgHighReadsF = getMsg("msgHighReadsF") msgSource = getMsg("msgSource") msgTextMessage = getMsg("TextMessage") msgHTMLMessage = getMsg("HTMLMessage") msgSourceFileText = getMsg("msgSourceFileText") msgSourceFileHTML = getMsg("msgSourceFileHTML") msgSourceURLText = getMsg("msgSourceURLText") msgSourceURLHTML = getMsg("msgSourceURLHTML") msgSourceTextTimes = getMsg("msgSourceTextTimes") msgSourceHTMLTimes = getMsg("msgSourceHTMLTimes") msgIncludeTemplateText = getMsg("msgIncludeTemplateText") msgIncludeTemplateHTML = getMsg("msgIncludeTemplateHTML") msgUseSQL = getMsg("msgUseSQL") msgSQLStr = getMsg("msgSQLStr") set getMsg = nothing end if if lcase(request("action")) = "go" then if (isnumeric(request("msgSource"))) then msgSource = CInt(request("msgSource")) msgFromName = trim(request("msgFromName")) msgFromEmail = trim(request("msgFromEmail")) msgReplyTo = trim(request("msgReplyTo")) msgSubject = trim(request("msgSubject")) msgPriority = trim(request("msgPriority")) ListID = trim(request("ListID")) if (isnumeric(request("msgFormat"))) then msgFormat = CInt(request("msgFormat")) msgSinceDate = varMonth & "/" & varDay & "/" & varYear & " " & varHour & ":" & varMinute & ":" & varSecond & " " & varAMPM msgSinceDateNum = getNumFromDate(msgSinceDate) if (msgSinceDateBit) then msgSinceDateNum = 315619200 msgToDate = varMonth2 & "/" & varDay2 & "/" & varYear2 & " " & varHour2 & ":" & varMinute2 & ":" & varSecond2 & " " & varAMPM2 msgToDateNum = getNumFromDate(msgToDate) if (msgToDateDateBit) then msgToDateNum = 978264000 if msgFromName = "" or msgFromEmail = "" or msgReplyTo = "" or msgSource = "" or msgSubject = "" or msgPriority = "" or msgFormat = "" or msgSource = "" then msg = 1 else if NOT verifyEmail(msgFromEmail) then msg = 5 else if NOT verifyEmail(msgReplyTo) then msg = 6 else if msgID <> 0 then ' update statement strSQL = "UPDATE ML_Broadcast SET " strSQL = strSQL & "ListID = " & ListID & ", " strSQL = strSQL & "FromEmail = '" & replace(msgFromEmail, "'", "''", 1, -1, 1) & "', " strSQL = strSQL & "FromName = '" & replace(msgFromName, "'", "''", 1, -1, 1) & "', " strSQL = strSQL & "ReplyTo = '" & replace(msgReplyTo, "'", "''", 1, -1, 1) & "', " strSQL = strSQL & "Subject = '" & replace(msgSubject, "'", "''", 1, -1, 1) & "', " strSQL = strSQL & "MessagePriority = " & msgPriority & ", " strSQL = strSQL & "msgFormat = " & msgFormat & ", " strSQL = strSQL & "msgLastModifiedDate = " & cfgDate & ", " strSQL = strSQL & "LastModifiedBy = '" & replace(svUsername, "'", "''", 1, -1, 1) & "', " strSQL = strSQL & "NumDays = " & msgNumDays & ", " strSQL = strSQL & "msgLowClicksF = " & msgLowClicksF & ", " strSQL = strSQL & "msgHighClicksF = " & msgHighClicksF & ", " strSQL = strSQL & "msgLowReadsF = " & msgLowReadsF & ", " strSQL = strSQL & "msgHighReadsF = " & msgHighReadsF & ", " strSQL = strSQL & "msgSinceDateF = " & msgSinceDateNum & ", " strSQL = strSQL & "msgToDateF = " & msgToDateNum & ", " strSQL = strSQL & "msgSource = " & msgSource & " " strSQL = strSQL & "WHERE MessageID = " & msgID mlConn.Execute(strSQL) redirectPage = "newsletter_step3.asp?msgID=" & msgID else on error resume next msgSourceFileText = replace(msgSourceFileText, "'", "''", 1, -1, 1) msgSourceFileHTML = replace(msgSourceFileHTML, "'", "''", 1, -1, 1) msgSourceURLText = replace(msgSourceURLText, "'", "''", 1, -1, 1) msgSourceURLHTML = replace(msgSourceURLHTML, "'", "''", 1, -1, 1) msgSQLStr = replace(msgSQLStr, "'","''", 1, -1, 1) msgTextMessage = replace(msgTextMessage, "'", "''", 1, -1, 1) msgHTMLMessage = replace(msgHTMLMessage, "'", "''", 1, -1, 1) on error goto 0 ' insert statement strSQL = "INSERT INTO ML_Broadcast " strSQL = strSQL & "(ListID, MessageType, MessagePriority, Status, FromEmail, FromName, ReplyTo, Subject, msgFormat, TextMessage, HTMLMessage, msgCreatedDate, CreatedBy, msgLastModifiedDate, LastModifiedBy, NumDays, sch, msgLowClicksF, msgHighClicksF, msgLowReadsF, msgHighReadsF, msgSinceDateF, msgToDateF, msgSource, msgSourceFileText, msgSourceFileHTML, msgSourceURLText, msgSourceURLHTML, msgSourceTextTimes, msgSourceHTMLTimes, msgIncludeTemplateText, msgIncludeTemplateHTML, msgUseSQL, msgSQLStr, BroadcastURLs, BroadcastSubscribers, msgArchivable, msgActualRecipients, msgTotalSubscribers, msgOnSubscriberID)" strSQL = strSQL & " VALUES " strSQL = strSQL & "(" & ListID & ",'" & msgType & "'," & msgPriority & ",'Pending','" strSQL = strSQL & replace(msgFromEmail, "'", "''", 1, -1, 1) & "','" strSQL = strSQL & replace(msgFromName, "'", "''", 1, -1, 1) strSQL = strSQL & "','" & replace(msgReplyTo, "'", "''", 1, -1, 1) strSQL = strSQL & "','" & replace(msgSubject, "'", "''", 1, -1, 1) strSQL = strSQL & "'," & msgFormat strSQL = strSQL & ",'" & msgTextMessage strSQL = strSQL & "','" & msgHTMLMessage strSQL = strSQL & "'," & cfgDate strSQL = strSQL & ",'" & replace(svUsername, "'", "''", 1, -1, 1) strSQL = strSQL & "'," & cfgDate strSQL = strSQL & ",'"& replace(svUsername, "'", "''", 1, -1, 1) strSQL = strSQL & "'," & msgNumDays strSQL = strSQL & ",0," strSQL = strSQL & msgLowClicksF strSQL = strSQL & ","& msgHighClicksF strSQL = strSQL & "," & msgLowReadsF strSQL = strSQL & "," & msgHighReadsF strSQL = strSQL & "," & msgSinceDateNum strSQL = strSQL & "," & msgToDateNum strSQL = strSQL & "," & msgSource strSQL = strSQL & ",'" & msgSourceFileText strSQL = strSQL & "','" & msgSourceFileHTML strSQL = strSQL & "','" & msgSourceURLText strSQL = strSQL & "','" & msgSourceURLHTML strSQL = strSQL & "'," & msgSourceTextTimes strSQL = strSQL & "," & msgSourceHTMLTimes strSQL = strSQL & "," & msgIncludeTemplateText strSQL = strSQL & "," & msgIncludeTemplateHTML strSQL = strSQL & "," & msgUseSQL strSQL = strSQL & ",'" & msgSQLStr strSQL = strSQL & "',0" strSQL = strSQL & ",0" strSQL = strSQL & ",0" strSQL = strSQL & ",0" strSQL = strSQL & ",0" strSQL = strSQL & ",0" strSQL = strSQL & ")" mlConn.Execute(strSQL) strSQL = "SELECT msgCreatedDate, MessageID, Subject FROM ML_Broadcast WHERE ML_Broadcast.msgCreatedDate = " & cfgDate & " AND ML_Broadcast.Subject = '" & replace(msgSubject, "'", "''", 1, -1, 1) & "'" set getID = mlConn.Execute(strSQL) if (getID.EOF) then redirectPage = "message.asp?msg=20" else redirectPage = "newsletter_step3.asp?msgID=" & getID("MessageID") set getID = nothing end if response.redirect redirectPage end if end if end if end if ' just a final check... if (msgFormat <> "") then msgFormat = msgFormat else msgFormat = 1 if (msgSource <> "") then msgSource = msgSource else msgSource = 1 if (msgType <> "R" AND msgType <> "S") then response.redirect "newsletter_step1.asp" %> <%=ListName%> - Spd E-Letter Administration

Create Newsletter - Step 2

Click here for a list of standard customation/mail merge tags
New to URL Tracking? Click Here
New to Content Snippets? Click Here

With the Spd E-Letter, you can use a mail merge with your own stored data. Click here for a list of those tags as well as more information.
<% if msg = 1 then %>

Missing information. Please complete all fields.

<% elseif msg = 2 then %>

Invalid "After Date" in the filter.

<% elseif msg = 3 then %>

Invalid "Before Date" in the filter.

<% elseif msg = 4 then %>

Invalid days. An automated email must be sent out at least 1 day after a person subscribes.

<% elseif msg = 5 then %>

Invalid From Email address.

<% elseif msg = 6 then %>

Invalid ReplyTo Email address.

<% end if %>
Newsletter Information
Newsletter Type:
 <% if msgType = "S" then %> Automated Email <% else %> Regular Newsletter <% end if %>
Newsletter Source:
 > Entered Data (by form)
<% if comCheck(6, debugMode) then %> > Specific File (from .txt, .htm, .html)
<% end if %> <% if comCheck(7, debugMode) then %> > Executed Page (any valid URL) <% end if %>
Send to:
Subject:
From Email:
ReplyTo Email:
From Name:
Priority:
Format:
 > Subscribers Choice
> Force Text Only
> Force HTML Only