<%
Do Until RSCategories.EOF
%>                            
  <OPTION VALUE="<% Response.Write RSCategories("CategoryName") %>">
  <% Response.Write RSCategories("CategoryName") %></OPTION>
<%
  RSCategories.MoveNext
Loop
%>
