<%
Dim RSCategories
set RSCategories = conn.execute("select CategoryName from ASPCategories " _
  & "order by CategoryName")
Do Until RSCategories.EOF
%>
  <OPTION VALUE="<% Response.Write RSCategories("CategoryName") %>">
  <% Response.Write RSCategories("CategoryName") %></OPTION>
<%
  RSCategories.MoveNext
Loop
%>
