Páginação, LINHAS x COLUNAS

Bom dia a todos do iMastes, não consigo de forma alguma montar uma paginação com linhas e colunas.A ação de resposta do código deve gerar: 4 colunas pula pra linha de baixo, caso a linha de baixo não complete com 4 colunas pra pular linha novamente ele deve imprimir as TD /TD com espaços vazios até completar a linha. Como posso resolver esse problema?Estou utilizando o seguinte CODIGO:

<table><% Cli= Request.QueryString("Cli")varQualPagina = request.querystring("qp")	if NOT isNumeric(varQualPagina) or varQualPagina = "" or isNull(varQualPagina) then varQualPagina = 1 varRegistroInicial = 1	else varQualPagina = Cint(varQualPagina) varRegistroInicial = (varQualPagina * 20 - 20) + 1	end ifDB.CursorLocation = 3 set rsBuscaEventos = DB.Execute("SELECT TabClientes.ClientesData as ClientesData, TabClientes.ClientesImagemPeq as ClientesImagemPeq, TabClientes.ClientesImagemGnd as ClientesImagemGnd, TabClientes.ClientesLegenda as ClientesLegenda, TabClientes.ClientesStatus as ClientesStatus, TabClientes.ClientesCategoria as ClientesCategoria FROM TabClientes WHERE ClientesStatus = 1 AND ClientesCategoria LIKE '%"& Cli &"%' ORDER BY ClientesData DESC") varQtostem = rsBuscaEventos.recordcount	if varQtostem Mod 20 = 0 then varQtasPagsTem = varQtostem / 20	else varQtasPagsTem = Int(varQtostem / 20) + 1	end if if NOT rsBuscaEventos.EOF then if varRegistroInicial > varQtostem then rsBuscaEventos.AbsolutePosition = 1	else rsBuscaEventos.AbsolutePosition = varRegistroInicialend if%><%varDecideCor = 2	for i = 1 to 10 if rsBuscaEventos.EOF then Exit for if varDecideCor mod 2 = 0 then varCorFundo = "#ffffff" else varCorFundo = "#ffffff"end if %>	<tr> <td> <span class="NoticiasTxtDataLista"><%=rsBuscaEventos("ClientesData")%></span><br /> <a href="ImgCli/<%=rsBuscaEventos("ClientesImagemGnd")%>" class="NoticiasTxtLista"><img src="ImgCli/<%=rsBuscaEventos("ClientesImagemPeq")%>" alt="<%=rsBuscaEventos("ClientesImagemPeq")%>" style="width:100px; height:100px" /></a> <a href="ImgCli/<%=rsBuscaEventos("ClientesImagemGnd")%>" class="NoticiasTxtTituloLista"><%=rsBuscaEventos("ClientesLegenda")%></a><br /> <span style="line-height:1px; font-family:1px;"> </span> </td>	</td><% varDecideCor = varDecideCor + 1 rsBuscaEventos.MoveNext	Next rsBuscaEventos.Close	set rsBuscaEventos = Nothing %>	<tr> <td> <div align="left"> <% if varQualPagina > 1 then %> <a href="NoticiasLista.asp?qp=<%=varQualPagina - 1%>"><img src="Admin/Noticias/ImgFx/IconeVoltar.jpg" border="0" alt="Voltar" /></a> <% else %> <% end if %> </div> <div align="right"> <% if varQualPagina < varQtasPagsTem then %> <a href="NoticiasLista.asp?qp=<%=varQualPagina + 1%>"><img src="Admin/Noticias/ImgFx/IconeAvancar.jpg" border="0" alt="Avançar" /></a> <% else %> <% end if %> </div> </td>	</tr> <% else %>	<tr> <td>Não há fotos cadastradas.</td>	</tr> <% end if %></table>

Agradeço desde já.Isaac