Error Paginação

[look 0]

Pessoal, tentei varias x fazer a paginação e nao consegui o resultdo, se alguem poder me ajudar<%Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnadalista=Request.querystring("lista")cat_id=Request.querystring("cat_id")cat_nome=Request.querystring("cat_nome")nome=Request.querystring("nome")%> <table width=100% border=0 cellpadding="0" cellspacing="0"> <tr width=100%> <td width=100% valign=top><%=cat_nome%></td> </tr> <%Select Case listaCase "categoria" set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome") msgnada = "Nenhum produto disponível."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 = "Nenhum produto encontrado."Case Else %> <script>window.location="./index.asp"</script> <%End SelectIf lista_produtos.EOF Then Response.Write "<tr><td>" & msgnada & "</td></tr>"Else %> <td width=100%> <table width=100% border=0 cellpadding="1" cellspacing="1"> <tr> <th width="21%" bgcolor="#7187C1">Nome</th> <th width="47%" bgcolor="#7187C1">Descrição</th> <th width="16%" bgcolor="#7187C1">Preço</th> <th width="16%" bgcolor="#7187C1">Detalhes</th> <% 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 valign=top width=100%> <td> <%=prod_nome%></td> <td> <%=prod_descricaop%></td> <td>  R$<%=FormatNumber(prod_preco,2,-1,0,-1)%></td> <td align=center valign=top bgcolor="ffffff"> <a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><img src="images/figbusca.gif" width="20" height="20" border=0></a> </td> </tr> <tr valign=top width=100%> <td colspan="4" bgcolor="#FFFFFF"><img name="space" src="" width="1" height="1" alt=""></td> </tr> <% lista_produtos.movenext If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If wendEnd Iflista_produtos.Closeset lista_produtos = Nothing%> </table></td> </tr></table>

[look 0]

Será que ninguem pode me ajudar?