Ajuda em listagem por coluna e paginação

amigos estou tentando fazer uma listagem por colunas exemplo  coluna1 | coluna2

                                                                                                      coluna3 | coluna4

antes que todos me fale que tem varias tópicos abertos aqui vi todos, o problema é que peguei o script pronto de uma listagem muito bem feito só que não tem paginação e nem por coluna , o problema é que esses codigo estao por paginas .inc que me confundiram mais ainda ... olha o codigo abaixo 

<%
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=20><td width=20><table border=1 width=183>
	<tr><th>Nome</th>
	<th>Preço</th>
	<th>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_preco = lista_produtos("preco")
		%>                  
		<tr width=100% valign=top class=<%=malha1%>><td><%=prod_nome%></td><td>R$<%=prod_preco%></td>
			<td valign=top align=center>
			<a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">Click aqui !!</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
%>