Paginação - erroooo

[marciolvs 1]

Bom dia!

 

Pessoal, tenho uma paginação, mas acontece que quanto altero a quatidade de por pagina ele me da erro..

ex: tenho 6 cadastro no banco e e elterar o limite por pagina maior que seis ele lista a pagina 1 se eu colocar o limite como 4 que seria menor que a quantidade cadastrada ele da erro..

 

 

erro..

 

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/sites/selecaoimoveis.net.br/site/lista.asp

 

 

 

Segue codigo

			<link href="css.css" rel="stylesheet" type="text/css">
			<!-- inicio da listagem -->
		  
		  <script language="JavaScript" type="text/javascript"><!--

			var winhandle = null;
			
			function popUp(aURL, aWidth, aHeight) {
			  if ((winhandle != null) && (! winhandle.closed)){
			
				winhandle.resizeTo(aWidth, aHeight);
				winhandle.location.replace(aURL);
			
			  }
			  else
			  {
				winhandle=window.open(aURL, "imagewin", 'width=' + eval(aWidth) + ',height=' + eval(aHeight) + ',resizable, location=0, scrollbars=1, statusbar=0, toolbar=0');
			  }
			
			  winhandle.focus();
			
			}
			
			//-->
			</script>
			<!-- #include file="inc/conexao.asp"-->
			<%
			dim conexaodb
			codsubdepto = request("sctg")
			coddepto = request("ctg")
			
			SQL = "SELECT count(id) As id FROM Produtos Where c_categoria="&coddepto&" and c_subcategoria="&codsubdepto
			Call abreconexao
			Set RScount = conexaodb.execute(SQL)
			totalProdutos= Rscount("id")
			
			
			Sql = "Select * From produtossubcategorias Where id="&codsubdepto
			Call Abreconexao
			Set rssubdepto = conexaodb.execute(Sql)
			subdepartamento = Rssubdepto("nome")
			
			
			%>
			<table align=center width="100%" class="estilo1">
	  <tr>
						<td align="left">   Encontrado(s) <font color="red" face="Arial, Helvetica, sans-serif"><b>
					  <%response.Write(totalprodutos)%></b></font> Produto(s) em <b><%=subdepartamento%></b>.</td>
					</tr>
			</table>

			<script language="JavaScript" type="text/javascript"><!--
			
			var winhandle = null;
			
			function popUp(aURL, aWidth, aHeight) {
			  if ((winhandle != null) && (! winhandle.closed)){
			
				winhandle.resizeTo(aWidth, aHeight);
				winhandle.location.replace(aURL);
			
			  }
			  else
			  {
				winhandle=window.open(aURL, "imagewin", 'width=' + eval(aWidth) + ',height=' + eval(aHeight) + ',resizable,  location=0, scrollbars=0, statusbar=0, toolbar=0');
			  }
			
			  winhandle.focus();
			
			}
			
			//--></script>
			<table align=center width="100%" class="estilo1">
					<%if totalProdutos = 0 then%>
					<tr>
						<td align="center"><br>No momento não encontra-se nenhum <b>Produto</b> cadastrado com este dapartamento.<br>Escolha outro departamento por favor...<br></td>
					</tr>
					<%end IF%>
			</table>
			<table align="center" width="100%" class="estilo1">
	  <TR>
						<%
						'Lista Fotos Pequenas
						 SQL = "SELECT * FROM produtos where c_categoria="&coddepto&" and c_subcategoria="&codsubdepto
						 if trim(request("ultSequencial"))<>"" then
							SQL = SQL & " AND numSequencial>" & request("ultSequencial")
						end if
						
						Set conexaodb = Server.CreateObject("ADODB.Connection")
						conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco/database.mdb") & ";Persist Security Info=False"
						 set rcd = server.createObject("ADODB.RECORDSET")
						'qtd de fotos na primeira pagina
						 Rcd.PageSize = 4
						 SQL = SQL & " order by Id desc" 
						
						 rcd.open SQL, conexaodb, 3
						
						 vtotal=rcd.recordcount
							if not rcd.eof then 
								If Request("pagina")="" then
								 intpagina=1
								Else
								 If Cint(Request("pagina"))<1 then
								  intpagina=1
								 Else
								  If Cint(Request("pagina"))>Rcd.PageCount then
								   intpagina=Rcd.PageCount
								  Else
								   intpagina=Request("pagina")
								  End If
								 End if
								End if
								i=2
								vcounter=1
								Rcd.AbsolutePage=intpagina
								intrec=0
								
								Do while not rcd.eof 
								'Do while intrec<Rcd.PageSize and not rcd.eof 
									if i=2 then 
										response.write "</TR><TR>"
										i=0
									end if
														
									response.write "<td> </td><TD align='center'><a href=""?ir=detalhes.asp&ctg=" & Rcd("c_categoria") & "&sctg=" & Rcd("c_subcategoria") & "&codigo=" & Rcd("Id") & """  class=""Link""><img src=""images_foto/" & rcd("c_fotop") & """ border=""0""><br><b>"&rcd("c_tipo")&"</b><br>"&LEFT (rcd("c_Descricao"),70)&"<b> ... Veja mais</b></a></td>"
									
									vult=rcd("Id")
									rcd.movenext
									vcounter = vcounter+1
									i=i+1
									if vcounter>6 then 
										exit do
									end if
									ntrec=intrec+1
								Loop
								response.write "</TR>"
							end if
							'rcd.close
							dim num 
							num=0
							%>
			</table>
						<center>

							<%

				'Paginação'
				If intpagina>1 then %>
				  <a href="lista.asp?pagina=<%=intpagina-1%>&ctg=<%=Rcd("categoria")%>&sctg=<%=Rcd("subcategoria")%>">Anterior</a> -->
				  <%end if
					
					For i=1 to Rcd.PageCount
					If i = Cint(intpagina) then%>
				  [<%=i%>] 
				  <% else %>
				  <a href="lista.asp&pagina=<%=i%>&ctg=<%=Rcd("c_categoria")%>&sctg=<%=Rcd("c_subcategoria")%>" class="Link">[<%=i%>]</a>
				  <%end if
					Next
					
					If strcomp(intpagina,Rcd.PageCount)<>0 then %>
				  <a href="lista.asp.asp?pagina=<%=intpagina+1%>&ctg=<%=Rcd("c_categoria")%>&sctg=<%=Rcd("c_subcategoria")%>">Próxima</a> -->
				 <%end if%>							
			</center>
			<%rcd.close
			set rcd = nothing%>
			

		  <!-- Fim da listagem -->

 

Agradeço a ajuda...

[Ted k' 126]

coloca um if para verificação:

 

if variavel.eof then
.........

[marciolvs 1]

coloca um if para verificação:

 

if variavel.eof then
.........

pode indicar + ou - onde ?

 

 

Marcio L. Vercanti