<%=ListName%> - Spd E-Letter Administration

<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "Prefs" Dim Nav3 : Nav3 = "7" %> <% response.Expires=-1500 Response.CacheControl="no-cache" If Request("Action") = "update_prefs" Then if (cstr(request("prefHexEmail")) = "1" AND comCheck(8, debugMode)) then prefHexEmail = 1 else prefHexEmail = 0 Set cmdTemp = Server.CreateObject("ADODB.Command") cmdTemp.ActiveConnection = mlConn Set rsUpdate = Server.CreateObject("ADODB.RecordSet") rsUpdate.ActiveConnection = mlConn cmdTemp.CommandText = "Select * From ML_Prefs" rsUpdate.Open cmdTemp, ,1,3 rsUpdate("ListName") = Request("Listname") rsUpdate("ActionURL") = Request("ActionURL") rsUpdate("RootURL") = Request("RootURL") rsUpdate("RedirectURL") = Request("RedirectURL") rsUpdate("DefaultEmail") = Request("DefaultEmail") rsUpdate("FooterHTML") = Request("FooterHTML") rsUpdate("MailerPath") = Request("MailerPath") rsUpdate("MailerProgram") = Request("MailerProgram") rsUpdate("Navigation") = Request("Navigation") rsUpdate("BroadcastNum") = Request("BroadcastNum") rsUpdate("PortNum") = Request("PortNum") rsUpdate("ViewNumSub") = Request("ViewNumSub") rsUpdate("DebugMode") = Request("debugMode") rsUpdate("prefReads") = Request("prefReads") rsUpdate("prefClicks") = Request("prefClicks") rsUpdate("ReadURL") = Request("ReadURL") rsUpdate("adminURL") = Request("adminURL") rsUpdate("RememberPass") = request("RememberPass") rsUpdate("prefHexEmail") = prefHexEmail rsUpdate.Update rsUpdate.Close() Set rsUpdate = nothing Response.redirect "message.asp?msg=12" End If %> <%=ListName%> - Spd E-Letter Administration

Site Preferences

These settings effect the program as a whole.
Changing the Navigation from here will not change your personal navigation choice, but rather the default for new users.

Spd E-Letter Version:	<%=MLVersion%>
List Name:
Root URL:
Admin URL:
Action URL :
Redirect URL:
Read Tracking URL:
Navigation Bar:
Remember Pass:
Default Email Address:
Default Mailer Program:
Mailer Path:
Port Number:
Use Hexillion Email Component	<% if comCheck(8, debugMode) then %> <% else %> Component not installed <% end if %>
Broadcast Number:
View X # Subscribers Per Page:
Newsletter Read Tracking:
Advanced Click Tracking:
Debug Mode:
Footer HTML:	<%=FooterHTML%>
Automated Features last ran on:	<% realDate = getDateFromNum(LastAutomatedRunDate) : response.write realDate %>