loop non va!

[agenti]

ciao a tutti...
ho questo codice che non va in loop.
visualizzo solo il primo valore del recordset "rs"
ripetuto in tutto il recordset "rec"
dove sbaglio??
Grazie per il vostro aiuto.
[code]
<% Set rec = Server.CreateObject("ADODB.Recordset")
strSql=("SELECT * FROM preventivi WHERE idutente="& session("idutente"))
rec.open strsql, conn
id_ogg=rec("id_ogg")
if not rec.eof then
do While Not rec.EOF
%>
<% Set rs = Server.CreateObject("ADODB.Recordset")
strSql1=("SELECT * FROM search WHERE id_ogg="& id_ogg &" ")
rs.open strsql1, conn
if not rec.eof then
do While Not rec.EOF
dispreale=rs("dispreale")
%>
<%if dispreale<=0 then
ifont="FF0000"
end if
if dispreale>0 then
ifont="008000"
end if%>
mostro dispreale e altri record...
<%rs("dispreale")%>

<%rec.movenext
loop
end if
%>
<% rs.movenext
loop
end if
%>
</form>
</td>
</tr>
</table>
</center>
</div>
<%end if%>

[Sypher]

  <% Set rec = Server.CreateObject("ADODB.Recordset")
		strSql=("SELECT * FROM preventivi WHERE  idutente="& session("idutente"))
		rec.open strsql, conn
		id_ogg=rec("id_ogg")
		if not rec.eof then
		do While Not rec.EOF
		%>
		<% Set rs = Server.CreateObject("ADODB.Recordset")
		strSql1=("SELECT * FROM search WHERE id_ogg="& id_ogg &" ")
		rs.open strsql1, conn
		if not rs.eof then
		do While Not rs.EOF
		dispreale=rs("dispreale")
		%>
		<%if dispreale<=0 then 
		ifont="FF0000"
		end if
		if dispreale>0 then
		ifont="008000"
		end if%> 
   mostro dispreale e altri record... 
<%rs("dispreale")%>
		
	<%rs.movenext
	loop
	end if
	%>
	<% rec.movenext
	loop
	end if
%> 
		</form>
		</td>
            </tr>
          </table>
  </center>
 </div>
<%end if%>

così?
l'errore sul loop non l'avevo notato e l'ho copiato da willy

[willybit]

Originariamente inviato da agenti
ciao a tutti...
ho questo codice che non va in loop.
visualizzo solo il primo valore del recordset "rs"
ripetuto in tutto il recordset "rec"
dove sbaglio??
Grazie per il vostro aiuto.

  <% Set rec = Server.CreateObject("ADODB.Recordset")
		strSql=("SELECT * FROM preventivi WHERE  idutente="& session("idutente"))
		rec.open strsql, conn
		id_ogg=rec("id_ogg")
		if not rec.eof then
		do While Not rec.EOF
		%>
		<% Set rs = Server.CreateObject("ADODB.Recordset")
		strSql1=("SELECT * FROM search WHERE id_ogg="& id_ogg &" ")
		rs.open strsql1, conn
		if not rec.eof then
		do While Not rec.EOF
		dispreale=rs("dispreale")
		%>
		<%if dispreale<=0 then 
		ifont="FF0000"
		end if
		if dispreale>0 then
		ifont="008000"
		end if%> 
   mostro dispreale e altri record... 
<%rs("dispreale")%>
		
	<%rec.movenext
	loop
	end if
	%>
	<% rs.movenext
	loop
	end if
%> 
		</form>
		</td>
            </tr>
          </table>
  </center>
 </div>
<%end if%>

in rosso le cose sbagliate

[agenti]

Originariamente inviato da willybit
in rosso le cose sbagliate

grazie per l'aiuto , ma chi è willy??

ah ora ho capito....

ho modificato resta tutto uguale...

vedo sempre la disponibilità del 1* record rs in tutti i record rec

ad esempio

12 altri valori
12 altri valori
12 altri valori
12 altri valori
12 altri valori
12 altri valori

[Sypher]

perchè devi mettere la valorizzazione della variabile id_ogg appena entri nel primo ciclo altrimenti esegui sempre la stessa select

come chi è willy...l'hai quotato

[agenti]

Originariamente inviato da Sypher
perchè devi mettere la valorizzazione della variabile id_ogg appena entri nel primo ciclo altrimenti esegui sempre la stessa select

come chi è willy...l'hai quotato

si ... il messaggio di willy l'ho visto dopo il tuo...

ora funonzia.
grazie e sogni d'oro sempre che tu dorma