"input Select" con ciclo

[yoyo87]

<%   Do while not RsART.EOF%>
	  
	  <tr>
       <td>
        <select name="SEZ_ID" onChange="location.href='?form=<%=strform%>&metodo=<%=strMETODO%>&id_sez='+this.options[this.selectedIndex].value+'&step=1';">
         <option selected>------------</option>
<%   
	 Do while not RsSEZ.EOF
        If int(ID_SEZ) = RsSEZ("ID_SEZ") then %>
         <option value="<%=RsSEZ("ID_SEZ")%>" selected><%=RsSEZ("SEZ_TITOLO")%></option>
<%      Else %>
         <option value="<%=RsSEZ("ID_SEZ")%>"><%=RsSEZ("SEZ_TITOLO")%></option>
<%      End If 
     RsSEZ.MoveNext
     Loop
	 %>
        </select>
       </td>
       <td>
        <input type="text" name="ART_TITOLO" value="<%=RsART("ART_TITOLO")%>">
	   </td>
      </tr>	  
<%  RsArt.MoveNext
    Loop

come mai vi visualizza i record nella Select solo sulla prima riga del ciclo Rs.SEZ.EOF???
Come spiegarmi meglio se non con una bell'immagine? :P

scommetto che devo mettere un ciclo For..ma come?