problema con ciclo while

[Grambo]

non riesco a far eseguire questo ciclo while..o meglio lo esegue ma solo una volta

set objRs = objConn.Execute("SELECT * from costruzioni WHERE NOME='"&session("nome_ut")&"'")
Do while not objRs.eof 
id=id+1
if id<11 then
set objRs = objConn.Execute("SELECT * from scheda_costruzioni WHERE ID_COSTRUZIONI="&id&"")
...
%> 
 ...
<%
end if
set objRs = objConn.Execute("SELECT * from costruzioni WHERE NOME='"&session("nome_ut")&"'")
objrs.movenext
Loop

come posso sistemarlo?