<%
Do Until RSTaxes.EOF
%>                                
<OPTION VALUE="<% Response.Write RSTaxes("TaxRate") %>">
<% Response.Write RSTaxes("Location") %></OPTION>
<%
  RSTaxes.MoveNext
Loop
%>