Ciclo Do While NOT ... Loop

[Vitacillina]

Chiedo scusa ma perchè questo ciclo non funziona?
Prende sempre l'ultimo dei recordset registrati nel db access:

<%
     set objconn = server.createobject("ADODB.connection")
     strconn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("mdb-database/db.mdb")
     objconn.open strconn

     strSQL = "Select * from programmi"
     Set objREC = Server.CreateObject("ADODB.Recordset")
     objREC.Open strSQL, objconn, 3, 3
              
     Do While NOT objREC.EOF 
        programma = objREC("programma")
        descrizione = objREC("descrizione")
        objREC.MoveNext
     Loop   

For I = 1 to 145 
       
    If I = 145 then 
         strAdder = 0
        else
         strAdder = I + 1
       end if 

 
       Response.Write "<TR><TD ALIGN='CENTER' CLASS='MARGIN' WIDTH=70><TD WIDTH='90' CLASS='MARGIN'>"&programma&"</TD>
      <TD WIDTH=40 CLASS='MARGIN'"&descrizione&"</TD></TR>"
    
      Next 
    
objrec.close
objconn.close
set objrec = nothing
set objconn = nothing 

     %>