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