<%@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" %> <% if (request("msgID") <> "" and IsNumeric(request("msgID"))) then msgID = CInt(request("msgID")) else msgID = 0 if (request("subID") <> "" and IsNumeric(request("subID"))) then subID = CInt(request("subID")) else subID = 0 if (lcase(request("format")) = "t" or lcase(request("format")) = "h") then format = lcase(request("format")) else format = "t" if (request("eml") = "Y") then emlIt = true else emlIt = false body = "" set getMessage = server.createobject("ADODB.Recordset") getMessage.activeconnection = mlConn getMessage.source = "SELECT * FROM ML_Broadcast INNER JOIN ML_Lists ON ML_Broadcast.ListID = ML_Lists.ListID WHERE ML_Broadcast.MessageID = " & msgID getMessage.cursortype = 3 getMessage.open() if getMessage.EOF then response.write "Error: Newsletter could not be found." response.end end if msgSource = getMessage("msgSource") msgFormat = getMessage("msgFormat") msgStatus = getMessage("Status") select case msgSource ' entered data... case 1 if (format = "h" AND (msgFormat = 1 or msgFormat = 3)) then if getMessage("msgIncludeTemplateHTML") = 1 then body = body & getMessage("HeaderHTML") body = body & getMessage("HTMLMessage") if getMessage("msgIncludeTemplateHTML") = 1 then body = body & getMessage("FooterHTML") else body = body & "[title]" & getMessage("Subject") & "[/title]" body = body & "[font size=2 face=Verdana, Arial, Helvetica, sans-serif]" if getMessage("msgIncludeTemplateText") = 1 then body = body & getMessage("HeaderText") body = body & getMessage("TextMessage") if getMessage("msgIncludeTemplateText") = 1 then body = body & getMessage("FooterText") body = body & "[/font]" end if ' from file... case 2 if (format = "h" AND (msgFormat = 1 or msgFormat = 3)) then if doesFileExist(getMessage("msgSourceFileHTML")) then fileData = readFileData(getMessage("msgSourceFileHTML"), fileResponse) if NOT fileResponse then body = body & "[div align=""center""][font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#FF0000""][b]" body = "Error reading file." body = body & "[/b][font][/div][br]" else if getMessage("msgIncludeTemplateHTML") = 1 then body = body & getMessage("HeaderHTML") body = body & fileData if getMessage("msgIncludeTemplateHTML") = 1 then body = body & getMessage("FooterHTML") end if else body = body & "[div align=""center""][font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#FF0000""][b]" body = "Error: File could not be found." body = body & "[/b][font][/div][br]" end if else if doesFileExist(getMessage("msgSourceFileText")) then fileData = readFileData(getMessage("msgSourceFileText"), fileResponse) if NOT fileResponse then body = body & "[div align=""center""][font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#FF0000""][b]" body = "Error reading file." body = body & "[/b][font][/div][br]" else body = body & "[title]" & getMessage("Subject") & "[/title]" body = body & "[font size=2 face=Verdana, Arial, Helvetica, sans-serif]" if getMessage("msgIncludeTemplateText") = 1 then body = body & getMessage("HeaderText") body = body & fileData if getMessage("msgIncludeTemplateText") = 1 then body = body & getMessage("FooterText") body = body & "[/font]" end if else body = body & "
" body = body & "Invalid Subscriber ID" body = body & "

" doIt = showForm() else if (format = "h" AND (msgFormat = 1 or msgFormat = 3)) then if (instr(1, getMessage("msgSourceURLHTML"), "?") <> 0) then strURL = getMessage("msgSourceURLHTML") & "&SubscriberID=" & getSub("SubscriberID") & "&Email=" & server.urlencode(getSub("Email")) & "&Format=HTML&Test=True" else strURL = getMessage("msgSourceURLHTML") & "?SubscriberID=" & getSub("SubscriberID") & "&Format=HTML&Test=True" urlBody = getHTML(strURL, bitResponse) if NOT bitResponse then body = body & "
[font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#FF0000""][b]" body = body & "Error: Could not get URL." body = body & "[/b][font][/div][br]" else if getMessage("msgIncludeTemplateHTML") = 1 then body = body & getMessage("HeaderHTML") body = body & urlBody if getMessage("msgIncludeTemplateHTML") = 1 then body = body & getMessage("FooterHTML") end if else if (instr(1, getMessage("msgSourceURLText"), "?") <> 0) then strURL = getMessage("msgSourceURLText") & "&SubscriberID=" & getSub("SubscriberID") & "&Email=" & server.urlencode(getSub("Email")) & "&Format=Text&Test=True" else strURL = getMessage("msgSourceURLHTML") & "?SubscriberID=" & getSub("SubscriberID") & "&Format=Text&Test=True" urlBody = getHTML(strURL, bitResponse) if NOT bitResponse then body = body & "
[font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#FF0000""][b]" body = body & "Error: Could not get URL." body = body & "[/b][font][/div][br]" else body = body & "[title]" & getMessage("Subject") & "[/title]" body = body & "[font size=2 face=Verdana, Arial, Helvetica, sans-serif>" if getMessage("msgIncludeTemplateText") = 1 then body = body & getMessage("HeaderText") body = body & urlBody if getMessage("msgIncludeTemplateText") = 1 then body = body & getMessage("FooterText") body = body & "[/font]" end if end if end if end if ' umm, error? case else body = "[font size=2 face=Verdana, Arial, Helvetica, sans-serif>Error: Newsletter could not be found." end select body = customizeIt(body, Format) response.write body function customizeIt(Data, Format) snips = parseSnippets(data, 1) if (format = "h") then formatNow = "HTML" else formatNow = "Text" usrMessage = replace(Data, "#name#", "John Doe", 1, -1, 1) usrMessage = replace(usrMessage, "#email#", "John@doe.com", 1, -1, 1) usrMessage = replace(usrMessage, "#subscribed#", Now, 1, -1, 1) usrMessage = replace(usrMessage, "#format#", formatNow, 1, -1, 1) usrMessage = replace(usrMessage, "#subscriberid#", "0", 1, -1, 1) usrMessage = replace(usrMessage, "#shortdate#", formatdatetime(now, 2), 1, -1, 1) usrMessage = replace(usrMessage, "#longdate#", formatdatetime(now, 1), 1, -1, 1) usrMessage = replace(usrMessage, "#listname#", getMessage("ListName"), 1, -1, 1) usrMessage = replace(usrMessage, "#numbersubscribers#", 0, 1, -1, 1) usrMessage = replace(usrMessage, "#firstname#", "John", 1, -1, 1) usrMessage = replace(usrMessage, "#unsubscribe#", ActionURL & "?a=u&i=0&c=0", 1, -1, 1) usrMessage = replace(usrMessage, "[url]", "", 1, -1, 1) usrMessage = replace(usrMessage, "[/url]", "?redirect_url=yes", 1, -1, 1) usrMessage = replace(usrMessage, "#trackreads#", "", 1, -1, 1) if (formatNow = "Text") then usrMessage = replace(usrMessage, "<", "<", 1, -1, 1) if (formatNow = "Text") then usrMessage = replace(usrMessage, ">", ">", 1, -1, 1) if (formatNow = "Text") then usrMessage = replace(usrMessage, Chr(13), "
", 1, -1, 1) usrMessage = replace(usrMessage, "[", "<", 1, -1, 1) usrMessage = replace(usrMessage, "]", ">", 1, -1, 1) customizeIt = usrMessage end function '=================================== function showForm() %>

Please enter a Subscriber ID:
Please keep in mind that the Format which this subscriber is assigned could override the format setting you chose.

<% end function %>