<%@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") <> "") then listID = request("ListID") else listID = 0 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" %> <%=ListName%> - Spd E-Letter Administration

View List Details

<% If rsList.EOF Then %>
No List was chosen. Please choose a list here.
<% Else %>

">Edit This List

List ID <%=rsList("ListID")%>
List Name <%=rsList("ListName")%>
Created On <% realdate = getDateFromNum(rsList("CreatedDate")) : response.write realDate %>
Created By <%=rsList("CreatedBy")%>
Last Email sent to this list on <% realDate = getDateFromNum(rsList("LastEmailSentDate")) : response.write realDate %>
Public or Private List
Public Lists are archived for public viewing. Private Lists are not. 		<% if (rsList("PublicList") = "Public") Then Response.Write "Public List" Else Response.Write"Private List" %>
List Admin's Email <%=rsList("ListAdminEmail")%>
BCC List Admin
Notify List Administrator via email of subscriptions & removals.		 <% if (rsList("BCCListAdmin") = "Y") Then Response.Write "Yes" Else Response.Write"No" %>
Double Opt-in
To ensure subscriber truly wants to subscribe & validate email address.		 <% if (rsList("DoubleOptin") = "Y") Then Response.Write "Yes" Else Response.Write"No" %>
Double Opt-out
To ensure subscriber truly wants to unsubscribe.		 <% if (rsList("DoubleOptout") = "Y") Then Response.Write "Yes" Else Response.Write"No" %>

List Description
For internal use only. Describe the purpose of the list.

<%=Replace(rsList("ListDescription"), Chr(13), "
")%>

Text Header
Header for all Text Messages Broadcasted to this list (part of the template).

<%=Replace(rsList("HeaderText"), Chr(13), "
")%>

Text Footer
Footer for all Text Messages Broadcasted to this list (part of the template). Also known as a signature file.

<%=Replace(rsList("FooterText"), Chr(13), "
")%>

HTML Header
Header for all HTML Messages Broadcasted to this list (part of the template).

<%=rsList("HeaderHTML")%>

HTML Footer
Footer for all HTML Messages Broadcasted to this list (part of the template). Also known as a signature file.

<%=rsList("FooterHTML")%>

Opt-in Message
Response to request to signup for the list. Sent in plain text only if Double Opt-in is enabled.

<%=Replace(rsList("OptinMessage"), Chr(13), "
")%>

Opt-out Message
Response to request to be removed from the list. Sent in plain text only if Double Opt-out is enabled.

<%=Replace(rsList("OptoutMessage"), Chr(13), "
")%>

Send Welcome Email <% if (rsList("SWE") = "Y") Then Response.Write "Yes" Else Response.Write"No" %>

Subscribe Subject
Subject to all successful subscriptions. Only sent if "Send Welcome Email" is enabled.

<%=rsList("SubscribeSubject")%>

Subscribe Text
Message sent to all confirmed subscriptions in Text format. Only sent if "Send Welcome Email" is enabled.

<%=Replace(rsList("SubscribeText"), Chr(13), "
")%>

Subscribe HTML
Message sent to all confirmed subscriptions in HTML format. Only sent if "Send Welcome Email" is enabled.

<%=rsList("SubscribeHTML")%>

Send Unsubscribe Email <% if (rsList("SUE") = "Y") Then Response.Write "Yes" Else Response.Write"No" %>

Unsubscribe Subject
Subject to all successful removals. Only sent if "Send Unsubscribe Email" is enabled.

<%=rsList("UnsubscribeHTML")%>

Unsubscribe Text
Message sent to all confirmed removals in Text format. Only sent if "Send Unsubscribe Email" is enabled.

<%=Replace(rsList("UnsubscribeText"), Chr(13), "
")%>

Unsubscribe HTML
Message sent to all confirmed removals in HTML format. Only sent if "Send Unsubscribe Email" is enabled.

<%=rsList("UnsubscribeHTML")%>

<% End If %>

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