Listar por Coluna

[Web 1 0]

Olá pessoal estou usando um esquema de listar por coluna, porem ele esta listando por linha em ordem alfabetica

gostaria de listar por coluna em ordem alfabetica, segue o código...

<%

Call abre_conexao1(ConnString,Conn)


sql = "SELECT * FROM cidadeconteudo INNER JOIN cidade ON cidadeconteudo.CidContCidade = cidade.CidId where CidContUF = '"&uf&"' order by cidade.CidNome" 

Set RS = Conn.Execute(sql)

%>

<%

If RS.eof or RS.bof then

%>

Nenhum registro no momento<br />

<a href="javascript:history.go(-1)">Voltar</a>


<%else%>


table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">

<tr> 


<%

'Dim contador 

contador = 1 

maxcol = 3    '<-- numero de registros por colunas

do while not RS.eof

%>


<%  

if contador <= maxcol then %>

<td valign="top"> <%=RS("CidContId")%> </td>

<% 

contador = contador + 1 

else %>

</tr>

<tr> 

<td valign="top"> <%=RS("CidContId")%> </td>

<% 

contador = 2 

end if 

RS.movenext 

loop 


'completa as colunas 

do while contador <= maxcol %>

<td> </td>

<%

contador = contador + 1 

loop

%>

</tr>


<%

RS.Close 

Set RS = Nothing 

Call fecha_conexao1() 

%>

</table>


<%End If%>

[xanburzum 169]

eu sempre uso assim :

 

<%
'conecto BD e gero RS
set conn = server.createobject("adodb.connection")
conn.open "meuDSN"
sSQL="select * from tabela"
set rs=conn.execute(sSQL)

'nomes dos campos como cabecalho da tabela
response.write "<table border='1'><tr>"
for i = 0 to rs.fields.Count - 1
   response.write "<th align='center' bgcolor='#eeeeee'>"
    response.write rs.fields(i).name
    response.write "</th>"
next
response.write "</tr>"
'agora, para cada registro
while not rs.EOF
    response.write "<tr>"
   'mostro todos os campos que tem
    for i = 0 to rs.fields.Count - 1
    response.write "<td>" & rs.fields(i) & "</td>"
    next
    response.write "</tr>"
    rs.movenext
wend
response.write "</table>"

'fecho o bd e o recordset
rs.close
conn.Close
%>

[Web 1 0]

Dentro do que eu postei, mudar somente de linha para coluna seria possível? tentei adaptar esse que você postou mas apareceu inúmeras colunas...

[xanburzum 169]

'nomes dos campos como cabecalho da tabela

response.write "<table border='1'><tr>"

for i = 0 to rs.fields.Count - 1

response.write "<th align='center' bgcolor='#eeeeee'>"

response.write rs.fields(i).name

response.write "</th>"

next

response.write "</tr>"

'agora, para cada registro

while not rs.EOF

response.write "<tr>"

'mostro todos os campos que tem

for i = 0 to rs.fields.Count - 1

response.write "<td>" & rs.fields(i) & "</td>"

next

response.write "</tr>"

rs.movenext

wend

response.write "</table>"

[Web 1 0]

E para mostrar apenas uma tabela?

[xanburzum 169]

isso mostra em colunas os seus dados, apenas altere para suas necessidades.

[Web 1 0]

A duvida é...

Como deixar exibindo apenas uma coluna da tabela, esta exibindo todas

[xanburzum 169]

monte do seu jeito com o response.write e as tags <table>,<td>,<tr> e dentro coloque os recordsets