Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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%>
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...
'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.movenextwend
response.write "</table>"
E para mostrar apenas uma tabela?
isso mostra em colunas os seus dados, apenas altere para suas necessidades.
A duvida é...
Como deixar exibindo apenas uma coluna da tabela, esta exibindo todas
monte do seu jeito com o response.write e as tags <table>,<td>,<tr> e dentro coloque os recordsets
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
next
response.write "</tr>"
'agora, para cada registro
while not rs.EOF
wend
response.write "</table>"
'fecho o bd e o recordset
rs.close
conn.Close
%>