<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim NavNumber(5) Dim NavName(5) Dim ShowNav NavNumber(0) = "1" NavNumber(1) = "2" NavNumber(2) = "3" NavNumber(3) = "4" NavNumber(4) = "5" NavNumber(5) = "6" NavName(0) = " - Regular Navigation" NavName(1) = " - Text Navigation" NavName(2) = " - Beginner Navigation" NavName(3) = " - Contemporary Navigation" NavName(4) = " - Pixel 69 Navigation" NavName(5) = " - Drop Box Navigation" ShowNav = "1" If (Trim(NavigationDefault) <> "") Then ShowNav = Trim(NavigationDefault) If (Trim(Navigation) <> "") Then ShowNav = Trim(Navigation) %> <% if ShowNav = "1" Then %> <% sideColor = "#8EBBCC" optionColor = "#8EBBCC" textColor = "#FFFFFF" %>

<%=Listname%>

<% End If %> <% If ShowNav = "2" Then %> <% sideColor = "#8EBBCC" optionColor = "#8EBBCC" textColor = "#FFFFFF" %>

<%=Listname%>
Administration Section

<% If Session("svListID") <> "" Then %> You are currently in the <%=Session("svList")%> List. <% Else %> You have no Default List Set. <% End If %> To change the default list, go here.

Subscribers:

Add Subscriber - View Subscribers
Search - Import Subscribers - Export Subscribers - Multiple Delete

Blocked:

Add Banned Domain - View Banned Domains

Pending Actions:

Pending Subscriptions - Pending Removals

Users/Admins:

Add New User - View Users - Change Personal Preferences

Lists:

Create A New List - View Lists

Regular Newsletters:

Create Newsletter - View Stored Newsletter - Resume Errored Broadcast

Scheduled Newsletters:

View Scheduled Newsletters

Automated Emails:

Create Automated Email - View Automated Email

Content Snippets:

View Content Snippets - Add Content Snippet

Reports:

List Reports - Email Reports

Misc:

Main Page - Site Preferences - Personal Preferences - FAQ's - Modules

Tools:

Mailer Program Test - Server Variables - Generate HTML - Developer Tools

Login/Logout:

Change User - Change Default List - Logout

<% End If %> <% If ShowNav = "3" Then %> <% sideColor = "#5498B2" optionColor = "#5498B2" textColor = "#FFFFFF" %>

<%=Listname%>

<% If Session("svListID") <> "" Then %> <%=Session("svList")%> <% Else %> None Specified <% End if %>

<% If Nav3 = "1" or Nav3 = "" or Nav3 >= "9" Then %>


Main Page \| Mailer Program Test \| Developer Tools \| Server Variables \| Generate HTML \| Change User \| FAQ \| Modules

<% End If %> <% If Nav3 = "2" Then %>


Add Subscriber \| View Subscribers \| Multiple Delete \| Search \| Import Export Pending Subscribers \| Pending Removals \| Add Banned Domain \| View Banned Domains

<% End If %> <% If Nav3 = "3" Then %>


Create User \| View Users

<% End If %> <% If Nav3 = "4" Then %>


Create List \| View Lists \| Import Subscribers \| Export Subscribers

<% End If %> <% If Nav3 = "5" Then %>


Create Newsletter \| View Stored Newsletters \| Create Automated Email \| View Automated Email View Scheduled Broadcasts \| Resume Errored Broadcast \| View Content Snippets \| Add Content Snippet

<% End If %> <% If Nav3 = "6" Then %>


View By List \| View By Newsletter

<% End If %> <% If Nav3 = "7" Then %>


Site Preferences

<% End If %> <% If Nav3 = "8" Then %>


Personal Preferences

<% End If %> <% End If %> <% If ShowNav = "4" Then %> <% sideColor = "#000000" optionColor = "#000000" textColor = "#FFFFFF" %>

<% end if %> <% if showNav = "5" Then %> <% sideColor = "#FFFFFF" optionColor = "#A3A352" textColor = "#FFFFFF" %>

<% end if %> <% if showNav = "6" then %> <% sideColor = "#8EBBCC" optionColor = "#8EBBCC" textColor = "#FFFFFF" thisPage = Mid(request.servervariables("SCRIPT_NAME"), InstrRev(request.servervariables("SCRIPT_NAME"), "/") + 1) thisPageURL = thisPage & "?SN=" & SN & "&SO=" & SO & "&PG=" & PG & "&ListID=" & ListID navStyle = "style=""{background:" & sideColor & "; color=" & textColor & "; font-weight=700}""" navStyle2 = "" %>

<% end if %>