Paginação Neste Cod Urgente

[Guest - Eduardo -]

Pessoal Estou tendo dificuldades em fazer paginação em asp (bicho de sete cabeças) gostaria de ter alguma ajuda para dar um jeito neste codigo

<%

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>

[William Rodrigues]

Páginação sem Mistérios

Abraços,

William Rodrigues