none
Como exibir em ordem alfabética horizontal? RRS feed

  • Pergunta

  • 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=123qwea
    sdzxc"
                
                
                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>

    Marcelo Vinicius
    terça-feira, 23 de março de 2010 02:09

Todas as Respostas