<SELECT NAME="RedirectTo">
<%
   Do Until RSMostPopular.EOF
%>
   <OPTION VALUE="<% response.write RSMostPopular("PageURL") %>">
     <% response.write RSMostPopular("PageName") %></OPTION>
<%
     RSMostPopular.MoveNext
   Loop
%>
</SELECT>
