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