Paginação ASP x MySql
Fala ae galera..
to usando o codigo abaixo para fazer a paginação de uma consulta no banco SQL..
<%
str_busca = request.querystring("busca")
SQL = "SELECT * FROM SA_produtos WHERE ProdutoNome LIKE '%"&str_busca&"%' or ProdutoDescricao LIKE '%"&str_busca&"%' ORDER BY ProdutoNome ASC"
Set rsBusca = conexao.execute(SQL)
pg = Request.Form("intPagina")
if request.QueryString("pg") = "" then pg = 1
rsBusca.PageSize = 30
If Not rsBusca.EOF Then rsBusca.AbsolutePage = pg
If not rsBusca.Eof then
while (not rsBusca.Eof) And (i < rsBusca.PageSize)
%>
<%=rsBusca("ProdutoNome")%><br />
<%i = i + 1
rsBusca.MoveNext
Wend
else
response.write ""
End if
%>
<%i = 1%>
<%while i < rsBusca.PageCount + 1 %>
<%
separador = " - "
if CInt(i) = CInt(rsBusca.PageCount) then separador = ""
%>
<%If CInt(i) = CInt(pg) then%>
<strong><%=i%></strong><%=separador%>
<%Else%>
<a href="java script:p(<%=i%>);"><%=i%></a><%=separador%>
<%end if%>
<%i = i + 1%>
<%wend%>erro:
[font="Arial"][size="2"]ADODB.Recordset[/size][/font] [font="Arial"][size="2"]error '800a0cb3'[/size][/font]
[font="Arial"][size="2"]Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.[/size][/font]
[font="Arial"][size="2"]/alpax/web/produtosBusca.asp[/size][/font][font="Arial"][size="2"], line 26[/size][/font]
já tentei todos os cursores possíveis e nada..
ajudem ae!!
flw
Discussão (3)
Carregando comentários...