Problema Na Paginação.

[YAKKOO(FEM)]

GALERA MINHA PAGINAÇÃO não FUNCIONA AKI...

OLHA O CODIGO..

[ViniciusJau]

mostra qual é a linha 219

e dá uma conferida no seus loops

[YAKKOO(FEM)]

no outro texto postado(com o mesmo titulo) tem qual é a linha 219.

O loop a principio esta corrto.

brigadim

[TIO CARNEGO]

Dentro do loop principal há outro loop que move o cursor de RS

vaeja:

While intrec < RS.PageSize and not RS.EOF 
%>
<table width="87%" border="0" align="center" cellpadding="0">
<tr> 
<td> <table width="276" border="0" align="center">
<tr> 
<td width="270"><form name="form1" method="post" action="excluir_corpoclinico_exito.asp">
<strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
<%cor="6699FF"%>

QUE QUE ESSE CARA TÁ FAZENDO AQUI??? ==>>     <%while not Rs.Eof%>

</font> </strong> 
<table width="267" border="0" cellspacing="1">
<tr> 
<td width="219" bgcolor="<%=cor%>"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
<%response.write Ucase(Rs("nome_medico"))%>
</font></strong></td>
<td width="41" bgcolor="#99CCFF"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
<input name="box" type="checkbox" id="box" value="<%=Rs("ID_medico")%>">
</font></strong></td>
</tr>
</table>
<strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
<%Rs.MoveNext
IF cor="6699FF" then
cor="cccccc"
ELSE
cor="6699FF"
END IF
wend%>
</font> </strong> 
<div align="center"> <strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
<input type="submit" name="Submit" value="Excluir">
</font></strong></div>
</form></td>
</tr>
<tr> 
<td><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Uma 
vez exclu&iacute;do o dado, n&atilde;o haver&aacute; possibilidade de 
recuper&aacute;-lo.</font></strong></div></td>
</tr>
</table>
<br> </td>
</tr>
<tr> 
<td><div align="center"><a href="Default.asp"> </a></div>
<div align="center"> 
<%
' response.write RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & " - " & RS("titulo_anuncio") & "<BR>"
'---------------------------------------------------------------------------------------------
RS.MoveNext

' Acrescenta +1 ao contador
intrec=intrec+1 
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then 
response.write " " 
END IF
Wend 'fim do loop

[TIO CARNEGO]

Veja este: