Muito chato fazer isso.. Se não der certo este código aí, que eu nem testei nem nada, coloca aí o seu que está dando o erro. É bem mais fácil pra consertar do que ficar montando a paginação no seu código..
<!--#include file="conectar.asp"-->
<!--#include file="cima.asp"-->
<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="11%" valign="top" background="imagens/fun_cel.jpg">
<p align="center">
<!--#include file="menu_left.asp"--></p>
</td>
<td width="89%" valign="top">
<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%">
<p align="center"><img border="0" src="imagens/espaco.jpg"></td>
</tr>
<tr>
<td width="100%">
<p align="center"><% AbreConexao
idcat=request.querystring("idcat")
id=request.querystring("id")
cat=request.querystring("cat")
If id = "" Then
Response.Write "<BR><p align=""left""><font face=""verdana"" size=2><B>"&cat&" - Relação Lojas</font></B><BR><BR>"
Set rsAlbum = Server.CreateObject("ADODB.RecordSet")
rs.PageSize=5
rsAlbum.Open "SELECT * FROM download WHERE idcat="&idcat&" ORDER BY id asc", Conexao
If rsAlbum.EOF Then
Response.Write "<p align=""center""><img border=""0"" src=""imagens/nem.jpg""><BR><font face=""verdana"" size=""2"">Nenhuma loja encontrada neste departamento!"
Response.End
Else
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF CInt(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF CInt(Request.QueryString("pagina"))>rsAlbum.PageCount then
intpagina=rsAlbum.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rsAlbum.AbsolutePage=intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < rsAlbum.PageSize and not rsAlbum.EOF
nome_fantasia = rsAlbum ("nome_FANTASIA")
<script language="JavaScript">
function abrejanela(sURL){
newwindow=open(sURL,"votar","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=300,height=170");
}
function novajanela(sURL){
newwindow=open(sURL,"imprimir","scrollbars=yes,toolbar=no,directories=no,menubar=no,resizable=yes,status=no,width=400,height=500");
}
//
</script>
<table border="0" cellpadding="0" cellspacing="0" width="99%" style="border-collapse: collapse" bordercolor="#D0D0D0">
<tr>
<font face="Verdana">
<td>
<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%">
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse; " bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="15%" bgcolor="#FFFFFF" style="border-style: none; border-width: medium">
<img border="0" src="imagens/abas/<%=rsAlbum("aba")%>"></td>
<td width="85%" bgcolor="#FFFFFF" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top: medium none #111111; border-bottom-style: none; border-bottom-width: medium" background="imagens/fun.jpg"> </td>
</tr>
<tr>
<td width="15%" bgcolor="#D0D0D0" style="border-left-color: #111111; border-left-width: 1; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium">
<p align="center"><font face="verdana" size="1">
<img border="0" src="imagens/logomarcas_monitor/<%=rsAlbum("logomarca")%>" alt="<%=rsAlbum("nome_loja")%> "></font></p>
</td>
<td width="85%" bgcolor="#D0D0D0" style="border-left-style: none; border-left-width: medium; border-right-color: #111111; border-right-width: 1; border-top: medium none #111111">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="95">
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"> -<b> Nome Comercial:</b>
<%=rsAlbum("nome_comercial")%></font></td>
</tr>
<tr>
<td width="100%" height="1">
<font face="verdana" size="1"> <b>- Nome Fantasia:</b>
<%=rsAlbum("nome_loja")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"><b> - Fundação:</b> <%=rsAlbum("fundacao")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"> <b>- Endereço:</b> <%=rsAlbum("endereco")%>,
Nº <%=rsAlbum("numero")%>, <%=rsAlbum("bairro")%> - <%=rsAlbum("cep")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1" face="Verdana"> <b>-
Complemento: </b><%=rsAlbum("complemento")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"><b> - Cidade:</b> <%=rsAlbum("cidade")%>,
<%=rsAlbum("estado")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"><b> - Telefone/Fax:</b>
<%=rsAlbum("telefone_fax")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"> <b>- Gerente:</b> <%=rsAlbum("gerente")%></font></td>
</tr>
<tr>
<td width="100%" height="12">
<font face="verdana" size="1"> <b>- Site na Internet:</b>
<a target="_blank" href="<%=rsAlbum("site")%>"><%=rsAlbum("site")%></a></font></td>
</tr>
<tr>
<td width="100%" height="10">
<font face="verdana" size="1"><b> - E-mail:</b>
<a href="mailto:<%=rsAlbum("email")%>?subject=Contato via ShopFacil União">
<%=rsAlbum("email")%></a></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-bottom-style: none; border-bottom-width: medium">
<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="100%"><font face="verdana" size="1"><b>O que
vende:</b> <%=rsAlbum("vende")%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="100%"><font face="verdana" size="1"><b>Descrição:</b>
<%=rsAlbum("descricao")%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font face="verdana" size="1"> <font color="#000080"><img border="0" src="imagens/marcador01.gif">
<%If rsAlbum("expoe") = "n" Then Response.Write "Esta loja não disponibiliza suas ofertas no site" Else Response.Write " <a href=""pr.asp?idcat=" & idcat & "&cat=" & cat & "&loja_id=" & rsAlbum("id")& "&nome=" & rsAlbum("nome_loja") & """>Ver Ofertas desta loja </a>(" & rsAlbum("cliques") & " cliques desde " & rsAlbum("adicionado") & ")</font>" End If%>
</font></font></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#F4F4F4" style="border-left-color: #111111; border-left-width: 1; border-right-color: #111111; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
<font face="verdana" size="1" color="#111111"> Média de
votos por avaliação de visitantes: <b>
<font face="verdana" size="1"><%=rsAlbum("media")%></font></b>
</font></font>
<a href="javascript:abrejanela('voto.asp?id=<%=rsAlbum("id")%>')">
<font color="#111111" face="verdana" size="1">
<img src="imagens/avalie.gif" border="0" alt="Dê sua nota para <%=rsAlbum("nome_LOJA")%>"></font></a><font color="#111111" face="verdana" size="1">
</font></td>
</tr>
<tr>
<td width="100%" colspan="2" style="border-left:medium none #111111; border-right:medium none #111111; border-top-style: none; border-top-width: medium; border-bottom-style:none; border-bottom-width:medium">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
<tr>
<td width="1%">
<font face="Verdana">
<img border="0" src="imagens/inicio_imprimir_dados.gif"></font></td>
<td width="88%" background="imagens/fundo_imprimir_dados.gif"> </td>
<td width="11%">
<p align="right"><a href="javascript:novajanela('print_lojas.asp?id=<%=rsAlbum("id")%>&idcat=<%=idcat%>&cat=<%=cat%>&nome=<%=rsAlbum("nome_loja")%>')">
<font color="#111111" face="verdana" size="1">
<img src="imagens/imprimir_dados.gif" border="0" alt="Imprimir dados da loja <%=rsAlbum("nome_LOJA")%>"></font></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</font><%rsAlbum.Movenext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rsAlbum.EOF then
response.write " "
END IF
Wend
End If
End If%>
<p align="center"><br>
<a href="javascript:self.history.go(-1)"><img src="imagens/voltar.jpg" border="0" alt="Voltar à página anterior"></a><br></td> </tr> </table> </td> </tr> </table>
<%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<a href="procurar.asp?pagina=<%=intpagina-1%>&sexo=<%=sexo%>&estado=<%=estado%>&idade_minima=<%=idade_minima%>&idade_maxima=<%=idade_maxima%>"">Anterior</a>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="procurar.asp?pagina=<%=intpagina + 1%>&sexo=<%=sexo%>&estado=<%=estado%>&idade_minima=<%=idade_minima%>&idade_maxima=<%=idade_maxima%>">Próxima</a>
<%
END IF
%>
<!--#include file="footer.asp"-->
</body>
