Lendo Até Último Registro...

[marcus Gemeos]

Olá pessoal,

Eu tenho um pequeno sistema que ele realiza contas com os valores que estão cadastrado no banco de dados, mas ele só lê o primeiro registro não lê de segundo em diante por que?

Abraixo segue o código

Precisso!!!!

Obrigado!

Marcus

----------------------------------------------------------------------------------------------

<%

IF rs.EOF then

Response.write "<i>Não existem débitos pendentes...</i>"

ELSE

rs.MoveFirst

While not rs.EOF

%>

<tr>

<td width="9%">&nbsp;</td>

<td width="66%" bgcolor="#F8F8F8">

<p align="left"><font size="2" face="Verdana"><%=rs("Produto")%></font></td>

<td width="14%" bgcolor="#F8F8F8">

<p align="left"><font face="Verdana" size="2">R$ <%=rs("Valor")%></font></td>

<td width="11%">&nbsp;</td>

</tr>

<%

VarValor = rs("Debitos")

VarValorPorcentagem = 5

VarComissao = VarValor * VarValorPorcentagem / 100

VarTotal = VarComissao + VarValor

rs.movenext

Wend

end if

rs.Close

%>

</table>

</td>

</tr>

<tr>

<td width="100%">

<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber32">

<tr>

<td width="25%">&nbsp;</td>

<td width="39%">&nbsp;</td>

<td width="11%" bgcolor="#DFDFDF">

<p align="right"><b><font face="Verdana" size="2">Comissão:</font></b></td>

<td width="25%">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber34">

<tr>

<td width="54%" bgcolor="#F8F8F8">

<p align="left"><font face="Verdana" size="2">R$ <%=VarComissao%></font></td>

<td width="46%">

<p align="left">&nbsp;</td>

</tr>

</table>

</td>

</tr>

<tr>

...

[Jony Walker]

Marcus, a linha imediatamente abaixo está marcando MoveFirst, quando deveria marcar MOVENEXT, senão ele fica só no primeiro mesmo (First)

IF rs.EOF then

Response.write "<i>Não existem débitos pendentes...</i>"

ELSE

rs.MoveFirst

While not rs.EOF

Substitua por rs.MoveNext e você terá todos os registros !!!

qualquer coisa posta aí de novo !!!

[.Andreia.]

Jony, creio que não seja isso pois colocar rs.Movefirst seria o mesmo que garantir o ponteiro no primeiro registro, e logo abaixo ele tem o Movenext...

Mas, vamos aguardar pra ver se Marcus conseguiu resolver o problema

[Jony Walker]

Tem razão, andreia, li o código de maneira errada. Sorry...

No caso ele poderia então tentar um DO WHILE NOT e LOOP, não ??

[.Andreia.]

A maneira que ele está fazendo está certa.. pode ser que na consulta SQL dele esteja retornando somente 1 resultado mesmo.