Listar registros em colunas

[essex 0]

galera...

 

quero listar o 1o registro na coluna 1 o proximo reg na coluna 2 e assim por diante, em duas colunas.

 

 

Coluna 1 === Coluna 2

-----------===-----------

Pedro----------Carlos

Maria----------Zeca

 

 

 

veja meu script abaixo listando em "linhas"

 

 

 

<table width="598" border="0" align="left" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF">
  <tr>
	<td colspan="8" bgcolor="#F2F2F2"><span class="style14"> <span class="style15">.: Lista de Repres :. </span></span></td>
  </tr>
  <tr>
	<td> </td>
	<td> </td>
	<td colspan="6"> </td>
  </tr>
  <tr> 

  [b]<% While Not xClientes.EOF %>[/b]

	<td width="48%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
	[b]<%  = xClientes("Nome")  %>[/b]
	</font></td> 
	<td width="4%"> </td>
	<td colspan="6"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
	  [b]<%  = xClientes("Nome")%>[/b]
	</font></td>
  </tr>
  
  <tr>
	<td colspan="7"> </td>
	<td width="28%"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="right.html"><img src="images/voltar2.gif" width="58" height="20" border="0"></a></font></div></td>
  </tr>
  <tr>
	<td height="2" colspan="8"></td>
  </tr>
  
[b]  <%
	 
	 Wend 
	 Call Fecha 
	 Set xClientes = Nothing
  %>[/b]
  </table>

 

como lista em dua colunas... obrigadéx

[dedindol 0]

Cara, dá uma olhadinha nisso aí

 

://forum.imasters.com.br/index.php?showtopic=17111

 

Segue abaixo só pro caso de estar com muita pressa:

 

ASP

<table border=1 width=50%> 
<tr> 
<% Dim contador 
   contador = 1 
   maxcol = 2	'<------------------ numero de registros por colunas
do while not rs.eof%> 
  <%  
	if contador <= maxcol then %> 
  <td> 
	<img src="<%=rs("imgp")%>"> 
  </td> 
   
  <% 
	  contador = contador + 1 
	else %> 
</tr> 
<tr> 
  <td> 
	<img src="<%=rs("imgp")%>"> 
  </td> 
  <% 
	  contador = 1 
	end if 
  rs.movenext 
loop 
 
'completa as colunas 
do while contador <= maxcol %> 
  <td> 
	  
  </td> 
<%  contador = contador + 1 
loop %> 
</tr> 
</table>

OBS:

 

Peguei do link que passei acima!

 

Espero ter ajudado,

Abraço!

[essex 0]

AmGooo

 

brigadao..

 

vou tentar adapatar aqui...

 

valeuzzzz

[xanburzum 169]

mais um exemplo:

 

<% 
Dim objConn, rs 

recuperaDados()

listaDados()

encerraConexao()
'
'* SUB-ROTINAS
' 
Sub recuperaDados()
'objeto de conexão
Set objConn = server.createobject("ADODB.Connection")

'string de conexão 
strConn = "DBQ=" & server.mappath("graficasonline.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'conecta ao banco de dados
objConn.open strConn,3,3

'cria o recordset 
Set rs= Server.CreateObject("ADODB.Recordset")

'instrucao SQL
sql = "SELECT DISTINCT Empresa FROM Empresa ORDER BY Empresa"

' executa a consulta
rs.Open sql, strConn, 3, 3
End Sub 

Sub listaDados()
%>
<table>
<%
'se final do arquivo sem encontrar nada e para
if ( rs.eof ) then
%>

<tr>
<td>
Não existem registros, encerrando!
</td>
</tr>

<%
else 

Dim empresas(200), nEmpresas
nEmpresas=1
do while not rs.eof
empresas(nEmpresas) = Ucase(trim(rs("empresa")))
nEmpresas = nEmpresas + 1 
rs.movenext 
loop

nEmpresas = nEmpresas - 1 

response.write "<tr><td>Número de Empresas: " & nEmpresas & "</td><tr>" 

' imprime os resultados em 2 colunas 

nLinhas = int(nEmpresas/2) + 1

for i= 1 to nLinhas

response.write "<tr>" 
response.write "<td>" & i & " " & empresas(i) & "</td>"

if ( i+nLinhas <= nEmpresas ) then

response.write "<td>" & i+nLinhas & " " & empresas(i+nLinhas) & "</td>"
else 
response.write "<td> - </td>"
end if 

response.write "<tr>"
next 

end if 
%>
</table>
<% 
End Sub 

Sub encerraConexao()
'importante .. fechar conexao e destruir objetos 
set rs= nothing 
objConn.close
set objConn = nothing
End Sub

%>