Paginação pessoal

[br1 0]

Ola pessoal estou querendo colocar uma paginação nesse codigo alguem pode me ajudar...

 

<%

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 preco 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% cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" cellpadding="0" height="1">

<tr><th height="19">Nome</th><th height="19">Descrição</th><th height="19">Preço</th>

<th height="19">Detalhes</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("preco")

%>

<tr width=100 valign=top class=<%=malha1%>><td height="1"><%=prod_nome%> </td>

<td height="1"><%=prod_descricaop%></td><td height="18">R$<%=FormatNumber(prod_preco,2,-1,0,-1)%></td>

<td valign=top align=center height="1">

<a href="./detalhecasas.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">

<img src="img/detalhes.jpg" border=0></a>

</td>

</tr>

<%

lista_produtos.movenext

If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If

wend

End If

lista_produtos.Close

set lista_produtos = Nothing

%>

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

</table>

[Salgado 4]

Dá uma olhada e veja se te ajuda: Tópico sobre Paginação

[asp.net 0]

olha na Área de códigos tem um script para paginaçõ lá.