<% if request_clean("added") <> "y" then %> <% end if %>
<% if request_clean("added") = "y" then %>
<%=request_clean("email")%>
has been successfully added.
Thanks!
<% else %>
Join our mailing list now!
First name:
Last name:
E-mail:
Preferred e-mail format:
HTML
Plaintext
Please select any additional lists:
<% SQL = "SELECT * FROM "&vMainTable&"_maillists WHERE status = 'ON' ORDER BY listname" set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objConn,adOpenKeySet Do While not objRS.EOF id = objRS("id") listname = objRS("listname") description = objRS("description") if listname = "opt-in" then optin_id = id end if if listname <> "opt-in" then %>
<%=listname%>
<% if description <> "" then %>
<%=description%>
<% end if %>
<% end if objRS.MoveNext Loop %>
<% end if %>
