Páginação, LINHAS x COLUNAS

[Isaac Schwartzman 0]

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

[Isaac Schwartzman 0]

Olá pessoal, bom não precisam me ajudar já me virei aqui e resolvi. :)