Paginação

[Guest brancão]

Olá pessoal, peguei um sistema simples de loja virtual pra usar num sistema offline de asp, mas ao clicar nas categorias aparecem todos os produtos, queria fazer uma paginação, mas não sei como fazer, se alguém poderia me ajudar ficaria muito grato! obrigado

<%

Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada

lista=Request.querystring("lista")

cat_id=Request.querystring("cat_id")

cat_nome=Request.querystring("cat_nome")

nome=Request.querystring("nome")

%>

<table border=0 width=100%><tr width=100%><td width=100% valign=top><h2><%=cat_nome%></h2></td></tr>

<%

Select Case lista

Case "categoria"

set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")

msgnada = "No momento não dispomos de nenhum produto neste departamento."

Case "busca"

set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")

msgnada = "Infelizmente não localizamos nenhum produto com esse nome."

Case Else

%>

<script>window.location="./index.asp"</script>

<%

End Select

If lista_produtos.EOF Then

Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"

Else

%>

<tr width=100%><td width=100%><table border=1 width=100%>

<tr><th>Nome</th><th>Descrição</th><th>Preço</th><th>Detalhes</th><th>Comprar</th></tr></thead></tr>

<%

Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_preco,malha1

malha1 = "sim"

while not lista_produtos.EOF

prod_cat_id = lista_produtos("cat_id")

prod_id = lista_produtos("id")

prod_nome = lista_produtos("nome")

prod_descricaop = lista_produtos("descricaop")

prod_preco = lista_produtos("preço")

%>

<tr width=100% valign=top class=<%=malha1%>><td><%=prod_nome%></td><td><%=prod_descricaop%></td><td>R$<%=FormatNumber(prod_preco,2,-1,0,-1)%></td>

<td valign=top align=center>

<a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><img src="./images/lupa.gif" border=0></a>

</td><td align=center><p>

<form action="./carrocompras.asp" method=get>

<input type=hidden name=acao value=incluir>

<input type=hidden name=prod_id value=<%=prod_id%>>

<input type=hidden name=url_comp value="<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">

<input type=text name=prod_quant maxlength=2 size=2 value=1>&nbsp;<input type=image src="./images/comprar.gif" border=0>

</form></p></td>

</tr>

<%

lista_produtos.movenext

If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If

wend

End If

lista_produtos.Close

set lista_produtos = Nothing

%>

</table></td></tr>

</table>

[pgmador]

Dá uma olhada aqui, fera...

Paginação

Tente fazer. Se der erro, informe o erro.

abraços!