BOF per due cicli while annidati

[eng]

Ciao a tutti, ho due cicli while annidati.
Quello piu' interno serve per creare lo stesso menu a tendina, tramite una select,
per ogni item del primo ciclo.
Per crearlo accedo allo sempre allo stesso recordset, ma, una volta teminata la costuzione di un menu, per il successivo, devo riposizionare il "puntatore" sul primo elemento del recordset.
é la prima volta (sono un neofita) che ho questa esigenza e non penso (mi da l'errore " Necessario oggetto: 'False'") che la sintassi adottata per riposizionare il "puntatore" sul primo elemento del recordset (riga marcata con <<<<<<<) sia corretta...

mi sapete indicare dove sbaglio ?
grazie
EnG

<%      Dim SQL_author_name
      SQL_author_name = "SELECT * FROM bookauthor, author " &_
      "WHERE ([bookauthor].[id_book]="& rec("id_book") &_
      ") AND ([bookauthor].[id_author]=[author].[id_author]) " &_
      "ORDER BY [author].[surname]" 

       Dim rec_author_name
      Set rec_author_name = Server.CreateObject("ADODB.Recordset")
      Set rec_author_name = Conn.Execute(SQL_author_name)%>
      

      <%WHILE Not rec.EOF%>
      <SELECT name="_selected">
      <OPTION value="<%=rec("id_author")%>" SELECTED> <%=rec("surname")%>, <%=rec("name")%>
      <% 
      rec_author_name=rec_author_name.BOF '<<<<<<<<<<<<<<<<<<
          WHILE Not rec_author_name.EOF%>
          <OPTION value="<%=rec_author_name("id_author")%>"> <%=rec_author_name("surname")%>, <%=rec_author_name("surname")%>
          <%rec_author_name.MoveNext
          WEND%>      
      <%rec.MoveNext%>
    </SELECT>

      
<%      WEND
      rec.close
%> 

[maximum]

Devi costruire due select uguali con le stesse voci?
Puoi fare così:

<%      Dim SQL_author_name 
          Dim rec_author_name 

      SQL_author_name = "SELECT * FROM bookauthor, author " &_ 
      "WHERE ([bookauthor].[id_book]="& rec("id_book") &_ 
      ") AND ([bookauthor].[id_author]=[author].[id_author]) " &_ 
      "ORDER BY [author].[surname]" 

      Set rec_author_name = Server.CreateObject("ADODB.Recordset") 
      Set rec_author_name = Conn.Execute(SQL_author_name)%> 
       
      <SELECT name="_selected"> 
      <%WHILE Not rec.EOF%> 
      <OPTION value="<%=rec("id_author")%>" SELECTED> <%=rec("surname")%>, <%=rec("name")%> 
         <% 
            rec_author_name.MoveNext 
      rec.MoveNext
<%      WEND %>
    </SELECT>
 
 
     <SELECT name="_selected1"> 
      <%
      rec.movefisrt 
      WHILE Not rec.EOF%> 
      <OPTION value="<%=rec("id_author")%>" SELECTED> <%=rec("surname")%>, <%=rec("name")%> 
         <% 
            rec_author_name.MoveNext 
      rec.MoveNext
<%      WEND %>
    </SELECT>
      
<%
rec.close
set res = nothing
%>

[eng]

ottimo, grazie!
MoveFirst ha funzionato.
buon ponte!

[maximum]

Prego.