<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' set rsPrefs = mlConn.Execute("SELECT prefHexEmail, LastAutomatedRunDate, adminURL, readURL, prefClicks, prefReads, DebugMode, PortNum, Navigation, DefaultEmail, MailerPath, MailerProgram, Listname, MLVersion, BroadcastNum, RememberPass, RootURL, ActionURL, RedirectURL, ReferURL, ViewNumSub, FooterHTML FROM ML_Prefs ORDER BY PrefsID ASC") MLVersion = "4.0" NavigationDefault = rsPrefs("Navigation") DefaultEmail = rsPrefs("DefaultEmail") MailerPath = rsPrefs("MailerPath") if (Trim(rsPrefs("MailerProgram")) <> "") then MailerProgram = rsPrefs("MailerProgram") else MailerProgram = "CDOMail" ListName = rsPrefs("ListName") BroadcastNum = rsPrefs("BroadcastNum") RememberPass = rsPrefs("RememberPass") RootURL = rsPrefs("RootURL") adminURL = rsPrefs("adminURL") ActionURL = rsPrefs("ActionURL") RedirectURL = rsPrefs("RedirectURL") ReferURL = rsPrefs("ReferURL") if (Trim(rsPrefs("PortNum")) <> "") then PortNum = rsPrefs("PortNum") else PortNum = "25" ViewNumSubDefault = rsPrefs("ViewNumSub") FooterHTML = rsPrefs("FooterHTML") readURL = rsPrefs("readURL") debugMode = rsPrefs("DebugMode") LastAutomatedRunDate = rsPrefs("LastAutomatedRunDate") prefReads = rsPrefs("prefReads") prefClicks = rsPrefs("prefClicks") prefHexEmail = rsPrefs("prefHexEmail") if debugMode = 1 then on error resume next else on error goto 0 end if if (prefReads <> 1) then prefReads = 0 else prefReads = 1 if (prefClicks <> 1) then prefClickss = 0 else prefClicks = 1 set rsPrefs = nothing if (MLVersion <> "4.0") then response.redirect "setup.asp?action=Login&msg=3" %>