<%
Do Until RSSelects.EOF
  Set RSSelectItems = conn.execute("select ItemText from ASPSelectListItems " _
    & "where SelectListID = " & RSSelects("SelectListID"))
%>
<P><B><% Response.Write RSSelects("SelectListName") %></B>
<BR><SELECT NAME="<% Response.Write RSSelects("SelectListName") %>">
<%
  Do Until RSSelectItems.EOF
%>
<OPTION VALUE="<% Response.Write RSSelectItems("ItemText") %>"><% Response.Write RSSelectItems("ItemText") %></OPTION>
<%
    RSSelectItems.MoveNext
  Loop
%>
</SELECT>
<%
  RSSelects.MoveNext                        
Loop
%>
