O que há de errado..? Loop infinito?

[Programdor2008 0]

Pessoal o que há de errado com esse codigo? já tentei de tudo e ele fica como se fosse um loop inifinito...

 

 

<!--#include file="conect.asp" -->
<%
SQL ="Select * From Clientes"
Set rs = Cn.execute(SQL)
Do Until rs.eof
Wcod = Rs("codigo")

Set rs1 = Cn.execute("Select * From Contas Where cliente = " & Wcod & "") 'Aqui vou buscar se na tabela contas existe algum titulo do primeiro cliente..

If not rs1.EOF then 'se encontrou...
Do Until rs1.eof
response.Write rs1("numero")
rs1.movenext
loop

Else' senão..
End if

rs.movenext
Loop
%>

PS: As vezes quando eu mudo algo da erro de exceção http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[Adelar Tiemann jr 0]

Aew

 

cara temta assim com while

 

CODE

<!--#include file="conect.asp" -->

<%

SQL ="Select * From Clientes"

Set rs = Cn.execute(SQL)

while not rs.eof

Wcod = Rs("codigo")

 

Set rs1 = Cn.execute("Select * From Contas Where cliente = " & Wcod & "") 'Aqui vou buscar se na tabela contas existe algum titulo do primeiro cliente..

 

If not rs1.EOF then 'se encontrou...

while not rs1.eof

response.Write rs1("numero")

rs1.movenext

wend

 

Else' senão..

End if

 

rs.movenext

wend

%>

 

vlw ae

[Programdor2008 0]

Poxa cara continua do mesmo jeito.. ele fica carregando, carregando... como se fosse um loop infinito.. aí trava.. aparentemente era pra funcionar.. mas n sei o que ta havendo...

[Adelar Tiemann jr 0]

Vai colocando response.write "ENTROU"

 

nos lugares para ir "debugando" ai você vai saber onde que ele nao ta entrando

 

 

xD

 

vlw ae

[Programdor2008 0]

o problema é que são 26.000 registros.. ja pensou? rsrs agora se eu coloque o response.write "ENTROU" e logo embaixo Response.End() ele mostra o "ENTROU".. porem acho q o problema é quando chega no final dos registros q ele entra em loop infinito..

[Adelar Tiemann jr 0]

Se sao 26000 registros tenta por response.flush antes do movenext

 

vlw ae

[Mário Monteiro 179]

selecione so algusn registros no loop de fora so apra debugar mesmo

 

mas use o while mesmo para evitar erros

 

se funciona para 3 registro funciona para um milhao

[Salgado 4]

Reduza sua SQL e faça apenas um loop WHILE, teste assim:

<!--#include file="conect.asp" -->
<%Set rs1 = Cn.execute("Select * From Contas Where cliente IN (Select codigo From Clientes);") 'Aqui vou buscar se na tabela contas existe algum titulo do primeiro cliente..

If not rs1.EOF then 'se encontrou...
While Not rs1.eof
	response.Write rs1("numero")
	rs1.movenext
Wend
Else' senão..

End if
%>