ordem alfabética na horizontal

[marvi]

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("&nbsp;")
                                End If
                            %>
                        </font>
                        </td>
                <%
                    
                    registroAtual = registroAtual + (qtdLinhas + 1)
                Next
                Response.Write("</tr>")
            Next
            %>
        </table>
                                       
         </p></font></td>
                                      </tr>
                                    </table>

[marvi]

Ninguém?

[bareta]

esse código temn aqui no forum se não me engano nos subforuns ai em cima....

linhas=10
i=1
while not rs.eof 
  response.write rs("id")&"<br>"

if i=linhas then
i=1
response.write "</td></tr><tr><td>"
else
i=i+1
response.write "</td><td>"
end if

rs.movenext
wend