<%=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 = "User" Dim Nav3 : Nav3 = "4" %> <% If Request("Action") = "add_list" Then ListName = Replace(request("ListName"),"'","''") ListAdminEmail = Replace(request("ListAdminEmail"),"'","''") if (ListName = "" or ListAdminEmail = "") then response.redirect "message.asp?msg=19" set rsCheckDuplicates = mlConn.Execute("SELECT * FROM ML_Lists Where ListName = '" & ListName & "'") if NOT rsCheckDuplicates.EOF then response.redirect "message.asp?msg=8&list=" & Server.URLEncode(ListName) set rsCheckDuplicates = nothing ListDescription = Replace(Request("ListDescription"),"'","''") DoubleOptin = Replace(Request("DoubleOptin"),"'","''") DoubleOptout = Replace(Request("DoubleOptout"),"'","''") HeaderText = Replace(Request("HeaderText"),"'","''") HeaderHTML = Replace(Request("HeaderHTML"),"'","''") FooterText = Replace(Request("FooterText"),"'","''") FooterHTML = Replace(Request("FooterHTML"),"'","''") OptinMessage = Replace(Request("OptinMessage"),"'","''") OptoutMessage = Replace(Request("OptoutMessage"),"'","''") SubscribeSubject = Replace(Request("SubscribeSubject"),"'","''") SubscribeText = Replace(Request("SubscribeText"),"'","''") SubscribeHTML = Replace(Request("SubscribeHTML"),"'","''") UnsubscribeSubject = Replace(Request("UnsubscribeSubject"),"'","''") UnsubscribeText = Replace(Request("UnsubscribeText"),"'","''") UnsubscribeHTML = Replace(Request("UnsubscribeHTML"),"'","''") BCCListAdmin = Replace(Request("BCCListAdmin"),"'","''") PublicList = Replace(Request("PublicList"),"'","''") SWE = Replace(Request("SWE"),"'","''") SUE = Replace(Request("SUE"),"'","''") CreatedBy = Session("svUsername") LastEmailSent = Now strSQL = "INSERT INTO ML_Lists (ListName, ListDescription, DoubleOptin, DoubleOptout, HeaderText, HeaderHTML, FooterText, FooterHTML, OptinMessage, OptoutMessage, SubscribeSubject, SubscribeText, SubscribeHTML, UnsubscribeSubject, UnsubscribeText, UnsubscribeHTML, BCCListAdmin, PublicList, ListAdminEmail, SWE, SUE, CreatedDate, CreatedBy, LastEmailSentDate) VALUES ('" & ListName & "','" & ListDescription & "','" & DoubleOptin & "','" & DoubleOptout & "','" & HeaderText & "','" & HeaderHTML & "','" & FooterText & "','" & FooterHTML & "','" & OptinMessage & "','" & OptoutMessage & "','" & SubscribeSubject & "','" & SubscribeText & "','" & SubscribeHTML & "','" & UnsubscribeSubject & "','" & UnsubscribeText & "','" & UnsubscribeHTML & "','" & BCCListAdmin & "','" & PublicList & "','" & ListAdminEmail & "','" & SWE & "','" & SUE & "'," & cfgDate & ",'" & CreatedBy & "'," & cfgDate & ")" mlConn.Execute(strSQL) set rsGetListID = mlConn.Execute("SELECT * FROM ML_Lists Where ListName = '" & ListName & "' AND CreatedBy = '" & CreatedBy & "'") NewListID = rsGetListID("ListID") set rsGetListID = nothing response.redirect "message.asp?msg=9&list=" & Server.URLEncode(ListName) & "&ListID=" & NewListID end if %> <%=ListName%> - Spd E-Letter Administration

Create 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 Administrator 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.
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.	[snip]List_Text_Footer[/snip]
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.	[snip]List_HTML_Footer[/snip]
Opt-in Message Response to request to signup for the list. Sent in plain text only if Double Opt-in is enabled.	[snip]Opt_In_Message[/snip]
Opt-out Message Response to request to be removed from the list. Sent in plain text only if Double Opt-out is enabled.	[snip]Opt_Out_Message[/snip]
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.
Subscribe Subject Subject to all successful subscriptions. Only sent if "Send Welcome Email" is enabled.
Subscribe Text Message sent to all confirmed subscriptions in Text format. Only sent if "Send Welcome Email" is enabled.	[snip]Subscribe_Text[/snip]
Subscribe HTML Message sent to all confirmed subscriptions in HTML format. Only sent if "Send Welcome Email" is enabled.	[snip]Subscribe_HTML[/snip]
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 successful removals. Only sent if "Send Unsubscribe Email" is enabled.
Unsubscribe Text Message sent to all confirmed removals in Text format. Only sent if "Send Unsubscribe Email" is enabled.	[snip]Unsubscribe_Text[/snip]
Unsubscribe HTML Message sent to all confirmed removals in HTML format. Only sent if "Send Unsubscribe Email" is enabled.	[snip]Unsubscribe_HTML[/snip]