<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "4" %> <% if (request("ListID") <> "" and IsNumeric(request("ListID"))) then listID = cint(request("ListID")) else listID = 0 if listID = 0 then response.redirect "message.asp?msg=20" if not allowedList(listID, allowedLists) then response.redirect "message.asp?msg=49" set rsList = server.createobject("ADODB.Recordset") rsList.activeconnection = mlConn rsList.source = "SELECT * FROM ML_Lists WHERE ListID = " & listID rsList.cursortype = 3 rsList.open() if (rsList.EOF) then response.redirect "message.asp?msg=20" if request("action") = "edit" then if (request("ListName") = "" or request("ListAdminEmail") = "") then response.redirect "message.asp?msg=19" Set cmdTemp = Server.CreateObject("ADODB.Command") cmdTemp.ActiveConnection = mlConn ' Open Database, and Update Set rsUpdate = Server.CreateObject("ADODB.RecordSet") rsUpdate.ActiveConnection = mlConn cmdTemp.CommandText = "SELECT * FROM ML_Lists WHERE ListID = " & ListID rsUpdate.Open cmdTemp, ,1,3 rsUpdate("ListName") = Request("Listname") rsUpdate("PublicList") = Request("PublicList") rsUpdate("ListAdminEmail") = Request("ListAdminEmail") rsUpdate("BCCListAdmin") = Request("BCCListAdmin") rsUpdate("DoubleOptin") = Request("DoubleOptin") rsUpdate("DoubleOptout") = Request("DoubleOptout") rsUpdate("ListDescription") = Request("ListDescription") rsUpdate("HeaderText") = Request("HeaderText") rsUpdate("FooterText") = Request("FooterText") rsUpdate("HeaderHTML") = Request("HeaderHTML") rsUpdate("FooterHTML") = Request("FooterHTML") rsUpdate("OptinMessage") = Request("OptinMessage") rsUpdate("OptoutMessage") = Request("OptoutMessage") rsUpdate("SWE") = Request("SWE") rsUpdate("SubscribeSubject") = Request("SubscribeSubject") rsUpdate("SubscribeText") = Request("SubscribeText") rsUpdate("SubscribeHTML") = Request("SubscribeHTML") rsUpdate("SUE") = Request("SUE") rsUpdate("UnsubscribeSubject") = Request("UnsubscribeSubject") rsUpdate("UnsubscribeText") = Request("UnsubscribeText") rsUpdate("UnsubscribeHTML") = Request("UnsubscribeHTML") rsUpdate.Update rsUpdate.Close() Set rsUpdate = nothing response.redirect "message.asp?msg=13&list=" & Server.URLEncode(rsList("ListName")) end if %> <%=ListName%> - Spd E-Letter Administration

Edit List

* Denotes a Required Field
List Name* ">
Public or Private List*
Public Lists are archived for public viewing. Private Lists are not.
List Admin's Email* ">
BCC List Admin
Notify List Adminsitrator via email of subscriptions & removals.
Double Opt-in
To ensure subscriber truly wants to subscribe & validate email address.
Double Opt-out
To ensure subscriber truly wants to unsubscribe.
List Description
For internal use only. Describe the purpose of the list.


HELP! View all tags available for custom messages
Text Header
Header for all Text Messages Broadcasted to this list (part of the template).
Text Footer
Footer for all Text Messages Broadcasted to this list (part of the template). Also known as a signature file.
HTML Header
Header for all HTML Messages Broadcasted to this list (part of the template).
HTML Footer
Footer for all HTML Messages Broadcasted to this list (part of the template). Also known as a signature file.
Opt-in Message
Response to request to signup for the list. Sent in plain text only if Double Opt-in is enabled.
Opt-out Message
Response to request to be removed from the list. Sent in plain text only if Double Opt-out is enabled.
Send Welcome Email
If Yes, then the Subscribe Message specified below will be broadcasted to all new subscribers. If set to no, then subscribers to this list will not receive a subscription notice. This does not interfere with nor disable the Double Opt-in setting.
Welcome Subject
Subject to all sucessfull subscriptions. Only sent if "Send Welcome Email" is enabled.		 ">
Welcome Text - Text Version (sent to Text subscribers)
Message sent to all confirmed subscriptions in Text format. Only sent if "Send Welcome Email" is enabled.
Welcome HTML- HTML Version (sent to HTML subscribers)
Message sent to all confirmed subscriptions in HTML format. Only sent if "Send Welcome Email" is enabled.
Send Unsubscribe Email
If Yes, then the Unsubscribe Message specified below will be broadcasted to all subscribers wishing to be removed from this list. If set to No, then unsubscribers to this list will not receive a removal notice. This does not interfere with nor disable the Double Opt-out setting.
Unsubscribe Subject
Subject to all sucessfull removals. Only sent if "Send Unsubscribe Email" is enabled. 		">
Unsubscribe Text
Message sent to all confirmed removals inText format. Only sent if "Send Unsubscribe Email" is enabled.
Unsubscribe HTML
Message sent to all confirmed removals in HTML format. Only sent if "Send Unsubscribe Email" is enabled.
">


<% rsList.Close() Set rsList = Nothing %>