<%@ LANGUAGE="VBSCRIPT" %><% '#emailtypeget.asp - detail view for adding, updating %><% Option Explicit %><% Response.Expires=0 %> museumofse[x]information: newsletter request
Stay informed about The Museum of Sex, and our exciting first year, through our email announcements.

Your privacy is completely protected by The Museum of Sex. We do not give out or sell names or e-mail addresses to anyone without your personal permission.
Email Address
  (required)
First Name
  (required)
Last Name

Please select the announcements you wish to receive.

 <% Dim conMos, rsEmailType Set conMos = Server.CreateObject("ADODB.Connection") Call setConnectAccess(conMos) 'active only Set rsEmailType = conMos.Execute("Select * from emailtype WHERE emt_active = 'Y' order by emt_showorder") Do Until rsEmailType.EOF %> <% rsEmailType.MoveNext Loop rsEmailType.Close Set rsEmailType = Nothing conMos.Close Set conMos = Nothing %>
All Announcements
 
<%=trim(rsEmailType("emt_type"))%>
<%=trim(rsEmailType("emt_desc"))%>