[Resolvido] Paginação ASP + MYSQL
Bom dia amigos, estou com um problema ao utilizar uma paginação que funcionava no access ,
após migrar o sistema para Mysql, detectei que o problema é com a instrução "absolutepage"
que não é compátivel com o MySql !
ja tentei fazer algumas adaptações mais nao deu certo, nao estou consiguindo fazer de outra forma a paginação, gostaria que me ajudassem a alterar o modo de paginação,
vou posta o código inteiro da página :
<%
if not session("status") = "ok" then
response.redirect("login.asp?erro=negado")
else
%>
<!--#include file="html.asp"-->
<title><%=tituloSite%> - Notícias</title>
<script><!--
function confirmarArtigo()
{
var agree=confirm('Deseja apagar esta notícia?');
if (agree)
return true ;
else
return false ;
}-->
</script>
<!--#include file="header.asp"-->
<!--#include file="htmlClose.asp"-->
<body class="bodySistema">
<div id="tudo">
<div id="conteudo">
<div id="header">
<%
If session("paginaArtigos") = "0" Then
Response.redirect "index.asp"
Response.End
End If
%>
<div id="logo">
<a href="index.asp" ><img src="../imagens/logo.png" border="0" /></a>
</div>
<div id="menuSistema">
<!--#include file="controleSistema.asp"-->
<div id="tabsMenu">
<!--#include file="menu.asp"-->
</div>
</div>
</div>
<div id="luzTopo">
</div>
<div id="info">
<div id="barraTituloSistema">
<div id="icone"><img src="../imagens/iconeArtigo.png" border="0" /></div>
<%
categoriaArtigo = request.querystring("categoria")
%>
<div id="tituloSistema">
<a href="inserirArtigo.asp?categoria=<%=categoriaArtigo%>" title="Inserir"><img src="imagens/botaoInserir.png" border="0" alt="Inserir" align="absmiddle" /></a> notícias » inserir notícia
</div>
</div>
<a href="artigos.asp" class="voltar">« voltar</a>
<br><br>
<%
Dim Con, rs
set Con = server.CreateObject("ADODB.Connection")
con.open "DSN=Dados"
pag = request.QueryString("p")
sql="select * from artigos where categoria='"& categoriaArtigo &"' order by data DESC"
set rs = server.CreateObject("ADODB.RecordSet")
if pag = "" then
pag = 1
end if
rs.pagesize = 4
rs.open sql, con, 3, 3
if rs.eof then
response.write "Não há notícias cadastradas nesta categoria."
else
'rs.absolutepage = pag
contador = 0
Response.Write "Página(s): "
For i = 1 To rs.PageCount
If i = cint(pag) Then
Response.Write "<span style='padding-left:5px; padding-right:5px; margin-left:5px; margin-right:5px; border:1px solid #cccccc'>" & i & "</span>"
Else
Response.Write "<a href='" & request.servervariables("script_name") &"?categoria="& categoriaArtigo &"&p=" & i & "' style='color:#004f9a; padding:2px' >" & i & "</a> "
End If
Next
Response.Write "<br><br>"
while not rs.eof and contador < rs.pagesize
contador = contador +1
categoria = rs("categoria")
data = rs("data")
id = rs("ID")
titulo = rs("titulo")
id = rs("ID")
foto = rs("foto")
'materia1 = rs("materia")
linkData = "<a href='artigoDetalhe.asp?id=" & id & "&categoria="& categoriaArtigo &"' title='Exibir detalhes de " & titulo & "' class='dataNews'><b>" & data & "</b></a>"
link = "<a href='artigoDetalhe.asp?id=" & id & "&categoria="& categoriaArtigo &"' title='Exibir detalhes de " & titulo & "' class='dataNews'>ler artigo <img src='sistema/imagens/detalhes.png' border='0' align='absmiddle'></a>"
linkEditar ="<a href='editarArtigo.asp?id=" & id & "&categoria="& categoriaArtigo &"' title='Editar Artigo'><img src='imagens/editar.png' border='0' align='absmiddle'></a>"
linkApagar = "<a href='apagandoArtigo.asp?id=" & id & "' title='Apagar Artigo' onClick='return confirmarArtigo()'><img src='imagens/apagar.png' border='0' align='absmiddle'></a>"
%>
<div class="boxNoticias">
<div class="controles"><%=linkEditar%> <%=linkApagar%></div>
<div id="thumbNoticia"><img src="../imagens/thumbs/<%= foto %>" width="160" height="105" boder="10" style="border-style:solid; border-color:#ffffff; "> </div>
<div id="textoArtigoSistema">
<%=linkData%><br><b class="tituloRegistro"><%=titulo%></b><br>
<%'=left(rs("materia"),150) %>
<% 'if len(rs("materia")) > 150 then %>
<%'...%>
<% 'end if %>
</div>
<div class="botaoVisualizar"> <a href="artigoDetalhe.asp?id=<%=id%>&categoria=<%=categoriaArtigo%>" title="<%=titulo%>">
<img src="../imagens/botaoVisualizar.png" border="0" align="absmiddle" /></a>
</div>
<br/>
</div>
<%
rs.movenext
wend
Response.Write "Página(s): "
For i = 1 To rs.PageCount
If i = cint(pag) Then
Response.Write "<span style='padding-left:5px; padding-right:5px; margin-left:5px; margin-right:5px; border:1px solid #cccccc'>" & i & "</span>"
Else
Response.Write "<a href='" & request.servervariables("script_name") &"?categoria="& categoriaArtigo &"&p=" & i & "' style='color:#004f9a; padding:2px' >" & i & "</a> "
End If
Next
end if
rs.close
Set rs = nothing%>
<br><br>
</div>
</div>
<div id="luzRodape">
</div>
</div>
</div>
<div align="center" id="fim">
<!--#include file="rodape.asp"-->
</div>
</body>
</html><% end if %>
Agradeço desde JA !
Discussão (3)
Carregando comentários...