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