ordem alfabética na horizontal

[marvi 0]

Como faço para criar 3 linhas horizontais em ordem alfabética horizontal e não vertical?

 

Tipo:

 

A b c

D e f

 

Usei esse código, mas não funciona:

 

 

<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14">
			<%
			Dim objConn, rsPrincipal, arrConvenio
			Dim qtdColunas, qtdRegistros, qtdLinhas, registroAtual
			Dim Linha, Coluna

			Set objConn = Server.CreateObject("ADODB.Connection")
			Set rsPrincipal = Server.CreateObject("ADODB.RecordSet")
'			objConn.Open "DRIVER={SQL Server};SERVER=MARCELO;DATABASE=labanalise;Uid=sa;PWD=vidanova"
			objConn.Open "DRIVER={SQL Server};SERVER=70.87.132.122,7654;DATABASE=LABANALISE;Uid=LABANALISE;PWD=123qweasdzxc"
			
			
			SQLprincipale = "SELECT * FROM contato"


Set rsprincipale = objConn.Execute(SQLprincipale)
email=rsprincipale("email")
endereco=rsprincipale("endereco")

			Set rsPrincipal = objConn.Execute("Select * From Convenios order by convenios asc ")
arrConvenio = rsPrincipal.GetRows

rsPrincipal.Close
			objConn.Close
			Set rsPrincipal = Nothing
			Set objConn = Nothing


			
			
			qtdColunas = 3
			qtdRegistros = UBound(arrConvenio, 2)
			qtdLinhas = CInt(qtdRegistros / (qtdColunas + 1))
			registroAtual = 0

			For Linha = 0 To qtdLinhas
				registroAtual = Linha
				Response.Write("<tr>")
				For Coluna = 0 To qtdColunas
						 
										
				%>
					<td>
					   <font face="Arial" color="#696969" size="2" >
							<%
								If registroAtual <= qtdRegistros Then
									 Response.Write(arrConvenio(1, registroAtual))

								Else
									Response.Write(" ")
								End If
							%>
						</font>
						</td>
				<%
					
					registroAtual = registroAtual + (qtdLinhas + 1)
				Next
				Response.Write("</tr>")
			Next
			%>
		</table>
									   
		 </p></font></td>
									  </tr>
									</table>

[xanburzum 169]

ele gera algum erro ????

[marvi 0]

Não,

 

ele só exibe em orderm alfabética vertical

 

A

b

C

 

e quero horizontal:

A b c

 

Entendeu?