paginacao embolada

[Arrasted 0]

pode ser alguma coisinha besta que nao esteja vendo pessoal.

a primeira linha ta certa, mas o resto embota tudo

<table width="710" border="0" cellpadding="0" cellspacing="0">							<tr>							<td width="90" height="19" class="ins">SP Número</td>							<td width="130" height="19" class="ins">Vendedor</td>							<td width="120" height="19" class="ins">Data de Entrega</td>							<td width="70" class="ins">Cheque ?</td>							<td width="70" class="ins">Nota?</td>							<td width="115" class="ins">Previsão</td>							<td width="115" class="ins">Cadastrado em?</td>							</tr>							<tr>							<td height="1" colspan="7"></td>							</tr>						   <%							registros = 6							pagina = Request.QueryString("pagina")								If pagina = "" Then									pagina = 1								End If									Set Conn = Server.CreateObject("AdoDb.Connection")									Conn.Open "DRIVER={SQL Server};Server=LOCAL;Database=global;Uid=sa;PWD=tomate;"										Set rs = Server.CreateObject("AdoDb.Recordset")										Set rs.ActiveConnection = Conn											rs.CursorType = 3											rs.PageSize = registros												Sql = "Select * From entregas Order By data_cad ASC"													rs.Open Sql														If rs.EOF Then															Response.Write"Nenhum Registro Encontrado !!!"																		Else																	rs.AbsolutePage = pagina																		While Not rs.EOF And x < rs.PageSize																			x = x + 1																			%>													 						<tr>													   						<td height="21" class="rs"><%= rs("sp")%></td>																		   <td height="19" class="rs"><%= rs("vendedor")%></td>																		   <td height="19" class="rs"><%= rs("data_entrega")%></td>																		   <td height="21" class="rs"><%= rs("retirar_cheque")%></td>																		   <td height="21" class="rs"><%= rs("emitir_nota")%></td>																		   <td height="21" class="rs"><%= rs("previsao")%></td>																		   <td height="21" class="rs"><%= rs("data_cad")%></td>																		   </tr>																		   <tr>													   					   <td height="7" colspan="7"></td>																		   </tr>																		   <tr>																		   <td height="19" colspan="7" class="ins">Observações</td>																		   </tr>																		   <tr>																		   <td height="25" colspan="7" valign="top" class="rs"><%= rs("obs")%></td>																		   </tr>																		   </table>																		   <%																			rs.Movenext																		Wend																	anterior =  pagina - 1																proxima = pagina + 1															ultima = rs.PageCount														primeira = 1													ultm2 = FormatNumber(rs.pageCount - 1,0)												If pagina <> 1 then											Response.Write "« <a href=VisualizarEntregas.asp?pagina="&primeira&">Primeira Página</a></b> "																End If									If pagina > 1 And pagina <> 2 Then													Response.Write "[ <a href=VisualizarEntregas.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "											End If												If pagina > 1 Then													Response.Write "[ <a href=VisualizarEntregas.asp?pagina="&anterior&">"&anterior&"</a> ] "														End If															Response.Write "[ "&pagina&" ]</b> "																If Not rs.EOF Then															Response.Write "[ <a href=VisualizarEntregas.asp?pagina="&proxima&">"&proxima&"</a> ] "														End If													If Not rs.EOF And pagina <> ultima And pagina <> ultm2 Then												Response.Write "[ <a href=VisualizarEntregas.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ] "											End If										If Not rs.EOF Then									Response.Write "<a href=VisualizarEntregas.asp?pagina="&ultima&">Última Página</a> » "								End If							End If												rs.Close				Set rs = Nothing				%

[Anderson Roberto 0]

Deve ser porque voce esta fechando a tabela dentro do While.

</table> <% rs.Movenext Wend