ordem alfabética por coluna

[formalivre 0]

olá tenho este código que está listando meus registros em colunas mas ele está colocando em ordem alfabética por linha e não por coluna.

<table width="100%" border="0" cellpadding="0" cellspacing="0"><%Response.Expires = 0Dim conexao, strCat, rsCat, numCat, Cat, strNRegistros, rsNRegistros, istrCat = "SELECT * "strCat = strCat & "FROM categorias "strCat = strCat & "ORDER BY Categoria"Set rsCat = conexao.Execute(strCat)i = 0Do While Not rsCat.EofnumCat = rsCat.Fields("idcat")Cat = rsCat.Fields("Categoria")strNRegistros = "SELECT COUNT(idcat) AS numclassific FROM tatuape "strNRegistros = strNRegistros & "WHERE tatuape.idcat=" & numCat & " "Set rsNRegistros = conexao.Execute(strNRegistros)if i = 0 then%> <tr> <% end if i = i + 1 %> <td width="23"><img src="imagens/lapis.gif" width="19" height="17" /></td> <td><p class="texto"><a href="depoimentos_ver.asp?Categoria=<% = numCat %>"> <% = Cat %> </a> <a href="teste.asp?Categoria=<% = numCat %>">( <% = rsNRegistros("numclassific") %>)</a></p> </td><% if i = 3 then %> </tr> <% i = 0 end if %><%rsCat.MoveNextLoop%>

teria como colocar em ordem alfabética de coluna?

[jothaz 1]

Camarada,

 

Endenti não!

 

Mas vai uma dica troque:

strCat = "SELECT * "

Por:

strCat = "SELECT nome das colunas em ordem alfabética separadas por , (virgula) "

 

t+

[formalivre 0]

bem vou explicar melhor.

este código está listando os registros de uma tabela com uma coluna do banco de dados

e está mostrando os resultados em 3 colunas na página ASP.

só que a ordem alfabética está sendo listado por linha e não por coluna.

se puder dê uma olhada neste endereço para ver um exemplo:

http://www.emcondominios.com.br/anunciantes_tatuape.asp

[formalivre 0]

encontrei este código para listar em 2 colunas os registros mas não estou conseguindo adaptar para o meu código.código encontrado:

<%SQL = "SELECT titulo FROM links ORDER BY id DESC"RS.Open SQL, conexao,3,3 %><table><tr> <%n = 1c = 5'c, é aqui que você controla o numero de colunasDo while not RS.Eof%><td width="20%"><%=RS("titulo")%></td>'<%=RS("titulo")%> é aonde mostra um dado do banco de codigos, você pode por o que quiser aqui<%n = n + 1RS.MovenextIf n > c thenresponse.write "</tr><tr>"n = 1End IfLoop%></table>

meu código:

<!--#Include file="conexao.asp"--><table width="100%" border="0" cellpadding="2" cellspacing="0"><%Response.Expires = 0Dim conexao, strCat, rsCat, numCat, Cat, strNRegistros, rsNRegistros, istrCat = "SELECT * "strCat = strCat & "FROM categorias "strCat = strCat & "ORDER BY Categoria"Set rsCat = conexao.Execute(strCat)i = 0Do While Not rsCat.EofnumCat = rsCat.Fields("idcat")Cat = rsCat.Fields("Categoria")strNRegistros = "SELECT COUNT(idcat) AS numclassific FROM tatuape "strNRegistros = strNRegistros & "WHERE tatuape.idcat=" & numCat & " "Set rsNRegistros = conexao.Execute(strNRegistros)if i = 0 then%> <tr> <% end if i = i + 1 %> <td width="23"><img src="imagens/lapis.gif" width="19" height="17" /></td> <td class="textomenor"><a href="mostra_anuncio_tatuape.asp?Categoria=<% = numCat %>"> <% = Cat %> </a> ( <% = rsNRegistros("numclassific") %>)</td><% if i = 3 then %> </tr> <% i = 0 end if %><%rsCat.MoveNextLoop%></table>

será que alguém pode me ajudar?obrigado.