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

<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v3.0 ' © 2001 James Harris ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "7" %> <% Dim Action : Action = "Start" If (Request("action") <> "") Then Action = Request("action") %> <%=ListName%> - Spd E-Letter Administration

Generate HTML

<% If Action = "Start" Then %> <% set rsLists = mlConn.Execute("SELECT * FROM ML_Lists Order by ListName ASC") if (rsLists.EOF) then response.redirect "message.asp?msg=34" %>

Need to generate the HTML to implement the subscribe section of this program into your website? Fill out a few fields, and hit the "Generate HTML" button to get the code you need!

Do you want the subscriber to be able to enter their name?	Yes No
Which newsletter format do you want subscribers to choose from?	Text HTML Let Subscriber Choose
Do you want the subscriber to confirm their information?	Yes No

Choose the list(s) you would like to be in the subscribe form: (hold the <CTRL> key on your keybaord to select multiple lists)
Which Format do you want the lists to appear as?	Hidden Field(s) Dropdown List Check Boxes Radio Buttons

<% End If %> <% If Action = "Generate" then %> <% listID = "" for each item in request("listID") listID = listID & item next if listID = "" then %>

Error

You did not choose a list. Please you your browsers back button and choose at least one list that the subscribe form will work with.

<% else %>

Here is your generated code. Simply copy the HTML in the form field and paste it into any editor where you want the code to appear on your site.

<form name="Subscribe" method="post" action="<%=ActionURL%>">
<p align="center"><% If Request("Name") = "Y" Then %>
<b>Name:</b><input type="text" name="Name" size="15">
<br><% End If %>
<b>Email Address:</b><input type="text" name="Email" size="15">
<br><% If Request("Format") = "choose" Then %>
<b>Format:</b>
<input type="radio" name="format" value="T" checked>Text 
<input type="radio" name="format" value="H">HTML
<br><% End If %>
<% if request("format") = "Text" then %><input type="hidden" name="format" value="T" checked><% end if %>
<% if request("format") = "HTML" then %><input type="hidden" name="format" value="H" checked><% end if %>
<% If Request("ListFormat") <> "HF" Then %>
<b>Join List:</b><% End If %>
<%
If Request("ListFormat") = "CB" Then

For Each ListID In Request("ListID")

set rsLists = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID)
If NOT rsLists.EOF Then 
%><input type="checkbox" name="L" value="<%=rsLists("ListID")%>"><%=rsLists("ListName")%><br>
<% 
End If 
Set rsLists = Nothing
Next

End If
%>
<%
If Request("ListFormat") = "DD" Then  %>
<select name="L">
<%
For Each ListID In Request("ListID")

set rsLists = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID)
If NOT rsLists.EOF Then 
%>  <option value="<%=rsLists("ListID")%>"><%=rsLists("ListName")%></option>
<% 
End If 
Set rsLists = Nothing
Next
%></select><% End If %>
<%
If Request("ListFormat") = "RB" Then

For Each ListID In Request("ListID")

set rsLists = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID)
If NOT rsLists.EOF Then 
%><input type="radio" name="L" value="<%=rsLists("ListID")%>"><%=rsLists("ListName")%><% 
End If 
Set rsLists = Nothing
Next

End If
%>
<% If Request("ListFormat") = "HF" Then  %>
<% For Each Item in Request("ListID") %><input type="hidden" name="L" value="<%=Item%>">
<% 
Next 
End If %>
<% If Request("Format") <> "choose" Then %><input type="hidden" name="Action" value="Subscribe"><% End If %>
<% If Request("Confirm") = "N" Then %><input type="hidden" name="Confirmed" value="yes"><% End If %>
<input type="hidden" name="a" value="s">
<input type="submit" name="Subscribe" value="Subscribe">
</form>

Select All

Here is what your subscribe form will look like. You can add in your own formatting as you wish.

<% If Request("Name") = "Y" Then %> Name:
<% End If %> Email Address:
<% If Request("Format") = "choose" Then %> Format: Text HTML
<% End If %><% If Request("ListFormat") <> "HF" Then %> Join List: <% End If %> <% If Request("ListFormat") = "CB" Then For Each ListID In Request("ListID") set rsLists = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID) If NOT rsLists.EOF Then %>"><%=rsLists("ListName")%>
<% End If Set rsLists = Nothing Next End If %> <% If Request("ListFormat") = "DD" Then %> <% End If %> <% If Request("ListFormat") = "RB" Then For Each ListID In Request("ListID") set rsLists = mlConn.Execute("SELECT * FROM ML_Lists WHERE ListID = " & ListID) If NOT rsLists.EOF Then %>"><%=rsLists("ListName")%><% End If Set rsLists = Nothing Next End If %> <% If Request("ListFormat") = "HF" Then %> <% For Each Item in Request("ListID") %> <% Next End If %> <% If Request("Format") <> "choose" Then %>"><% End If %> <% If Request("Confirm") = "N" Then %> <% End If %>

<% end if end if %>