Registro por ordem Alfabetica...?

[wilnet 92]

Olá galera, desejo fazer uma mudança na forma como é mostrado meus registros.

 

É o seguinte, ele mostra em ordem horizontal

 

Abacaxi - Abobora - Aliança - Abelha....

Beleza - Bola - Cebola - Calça - Dado ....

 

Mas eu gostaria que fosse assim na Vetical:

 

Abacaxi - Bola

Abobora - Cebola

Aliança - Calça

Abelha - Dado

Beleza

 

Meu código é esse abaixo:

 

<%
Dim categoria

set categoria = lojaDB.Execute("select * from categorias ORDER BY nome")
			 

'while not categoria.EOF

%>
  <tr width=100%>
<% Dim contadores,maxcol 
  contadores = 1 
  maxcol = 3	'<------------------ numero de registros por colunas
do while not categoria.eof%> 
  <%  
	if contadores <= maxcol then %> 
					  <td height="20"> <a class=linkcat href="./lista.asp?lista=categoria&cat_id=<%=categoria("id")%>
&cat_nome=<%=categoria("nome")%>"></a> 
						<table width="100%" border="0" cellpadding="0" cellspacing="0">
						  <tr>
							<td width="7%"><a class=linkcat href="./lista.asp?lista=categoria&cat_id=<%=categoria("id")%>
&cat_nome=<%=categoria("nome")%>"></a></td>
							<td bgcolor="#ccddee" width="93%"><a class=linkcat href="./lista.asp?lista=categoria&cat_id=<%=categoria("id")%>
&cat_nome=<%=categoria("nome")%>"> <%=categoria("nome")%></a></td>
						  </tr>
						</table> </td> 
  
  <% 
	  contadores = contadores + 1 
	else %> 
</tr>
<tr>
	<td colspan="5" height="5" background="imagem/1dot.gif"><spacer height="1" type="block" width="1"></td>
  </tr>  
<tr> 
					  <td heigth="50"> <a class=linkcat href="./lista.asp?lista=categoria&cat_id=<%=categoria("id")%>
&cat_nome=<%=categoria("nome")%>"></a>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
						  <tr>
							<td width="7%"><a class=linkcat href="./lista.asp?lista=categoria&cat_id=<%=categoria("id")%>
&cat_nome=<%=categoria("nome")%>"></a></td>
							<td bgcolor="#ccddee" width="93%"><a class=linkcat href="./lista.asp?lista=categoria&cat_id=<%=categoria("id")%>
&cat_nome=<%=categoria("nome")%>"> <%=categoria("nome")%></a></td>
						  </tr>
						</table> </td> 
  <% 
	  contadores = 2 
	end if 
			
  categoria.movenext 
loop 

'completa as colunas 
do while contadores <= maxcol %> 
 
<%  contadores = contadores + 1 
loop %>   </tr>
<%

'categoria.MoveNext
'Wend
categoria.Close
set categoria = Nothing
%>

Desde já muito obrigado pela ajudas que puderem me dar.

 

William

[PedBolo 0]

Cara, to sem tempo pra ler seu código mas vou te passar a lógica dae você pode adaptar ao seu código.

 

<table>
<tr>
<td>
<%
Rs = "SELECT *,Count(Id) as contador ORDER BY nome"

limite = Int(Rs("contador")/2)
i = 1

Do While Not Es.EOF

Response.write(Rs("nome") & "<br>")

If i = limite Then Response.write "</td><td>"

i = i + 1

Rs.MoveNext
Loop
%>
</td>
</tr>
</table>

se não conseguir resolver me manda mp.

 

 

edit: explicando: pega o total de registros, divide por 2, cria uma var (i) pra contar a posição do recordset, quando i for igual a metade do total dos registros, ele divide a tabela criando uma segunda coluna

[wilnet 92]

Amigo valeu sua ajuda, vou tentar fazer esse teste ak, porém, se alguem tiver uma solução para meu código que já está pronto no site eu iria agradecer muito.

 

Pq, com o seu código, eu vou ter que mexer , praticamente alterar tudo o que ja está pronto, assim se eu conseguir com o meu código acima será bem melhor.

 

Continuo solicitando uma HELP para esse código postado, Grato