Ir para conteúdo
Fórum Script Brasil
  • 0

ordem alfabética na horizontal


marvi

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=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>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...