Quando eu pagino, ele repete o mesmo resultado várias vezes...

Pessoal, boa tarde,Aprendi um macete de fazer uma paginação em colunas. Entendi a lógica mas ainda não estou conseguindo aplicá-la. Quando eu faço a paginação, ele repete os resultados nas 3 colunas... tá tenso...Aqui o código sem a paginação... alguém poderia me dizer como deixar os resultados divididos em 3 colunas de 20?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/connGuia.asp" --><%Dim listar__MMColParamlistar__MMColParam = "30"If (Request("MM_EmptyValue") <> "") Then listar__MMColParam = Request("MM_EmptyValue")End If%><%Dim listarDim listar_numRowsSet listar = Server.CreateObject("ADODB.Recordset")listar.ActiveConnection = MM_connGuia_STRINGlistar.Source = "SELECT * FROM guiamedico_subcategorias WHERE AdSubCatPertence = " + Replace(listar__MMColParam, "'", "''") + " ORDER BY AdSubCatNome ASC"listar.CursorType = 0listar.CursorLocation = 2listar.LockType = 1listar.Open()listar_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0listar_numRows = listar_numRows + Repeat1__numRows%> <table border="1"> <% While ((Repeat1__numRows <> 0) AND (NOT listar.EOF)) %>	<tr> <td><%=(listar.Fields.Item("AdSubCatNome").Value)%></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 listar.MoveNext()Wend%> </table> <%listar.Close()Set listar = Nothing%>