Ordenar una tabla correctamente..

[aSiRiO]

hola a todos.
Mi pregunta era:
Como mostrar los datos de una consulta a una db de esta forma:
1 2 3
4 5 6
7 8 9
obsea que se cree una tabla y visualize los registros de 3 en 3. Y con un dato unico a mostrar.

<b>Muchas gracias a todos</b>:)

[aSiRiO]

Haber que creo que no me he explicado del todo bien.
Hago una consulta a la DB saco el campo "categorias" y lo muestro asin:

While ((Repeat1__numRows <> 0) AND (NOT categorias.EOF))
%>
<td height="19">

<%= UCase((categorias.Fields.Item("Categoria&quot ;).Value)) %>

</td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
categorias.MoveNext()
Wend

el problema me bien que me lo muestra o,
campo campo campo campo
o,
campo
campo
campo
campo
y quiero que me lo muestre de esta forma:
campo campo campo
campo campo campo
campo campo campo
Que es exactamente el motivo de mi dolor de cabeza con las tablas. :)
Espero que alguien sepa como hacerlo.
Un saludo muy grande a todos.

[almaluz]

Algo asi me explico yolanda cuando yo pregunte lo mismo

<pre>

&lt;table&gt;
&lt;tr&gt;
&lt;%
columna = 0
do while not rs.Eof
columna = columna + 1
%&gt;
&lt;td&gt;&lt;%= rs(&quot;camo&quot;)%&gt;
&lt;%
if columna = 2 then
columna =0
%&gt;
&lt;tr
&lt;
&lt;%
End If
rs,Movenext
loop
%&gt;
&lt;/table&gt;

</pre>

Espero que te ayude. :)

[aSiRiO]

Hola almaluz!
He estado probando ese codigo y no he conseguido hacerlo, veo que tiene muchos errores el codigo, si puedes ponermelo un poco mas claro te lo agradeceria mucho, ya que para poder seguir con la web me hace mucha falta hacer esto.
Un saludo y muchas gracias por responder :)

[aSiRiO]

Por Favooor que alguien me eche un cable que no puedo continuar :( si no aclaro este tema. :)

[pramos]

Una solución muy sencilla es leer los datos de tres en tres:

&lt;table&gt;
&lt;%
do while not rs.eof
Nombre1=rs(&quot;Nombre&quot;)
rs.movenext
if not rs.eof then
Nombre2=rs(&quot;Nombre&quot;)
rs.movenext
end if
if not rs.eof then
Nombre3=rs(&quot;Nombre&quot;)
rs.movenext
end if
%&gt;
&lt;tr&gt;
&lt;td&gt;&lt;% =Nombre1 %&gt;&lt;/td&gt;
&lt;td&gt;&lt;% =Nombre2 %&gt;&lt;/td&gt;
&lt;td&gt;&lt;% =Nombre3 %&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
loop
%&gt;
&lt;/table&gt;

[aSiRiO]

Pramos , ni te puedes imaginar lo que me has ayudado, muchisimas gracias :)

dim gracias
gracias = 0
do while not gracias = 1000
response.write(&quot;gracias&quot;)
gracias = gracias + 1
loop
:) :) :)

[almaluz]

Una copia exacta del que yo utilizo

<pre>
&lt;table width=&quot;625&quot; cellpadding=&quot;1&quot; cellspacing=&quot;3&quot;&gt;
&lt;tr&gt;
&lt;%
columna=0
Do While Not rs.Eof
columna=columna+1
%&gt;
&lt;td&gt;
&lt;table&gt;
&lt;tr&gt;
&lt;td&gt;
&lt;% If trim(rs(&quot;foto1&quot;)) &lt;&gt;&quot;&quot; Then
%&gt;
&lt;img src=&quot;fotos/&lt;%= rs(&quot;foto1&quot;)%&gt;&quot; align=&quot;left&quot; &gt;
&lt;% End If
%&gt;
&lt;img src=&quot;imagenes/flecha.gif&quot;&gt; &lt;a href=ver.asp?id=&lt;%= rs(&quot;id&quot;)%&gt; class=&quot;menuL&quot;&gt;&lt;%= rs(&quot;titulo&quot;) %&gt;&lt;/a&gt;&lt;br&gt;
&lt;table border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; class=&quot;txjustpq&quot;&gt;
&lt;tr&gt;
&lt;td&gt;
&lt;% texto = rs(&quot;noticia&quot;)

texto = replace(texto, chr013),&quot;&lt;br&gt;&quot;)
texto = left(texto,150)
Response.Write texto &amp; &quot;...&quot;
%&gt;
&lt;a href=ver.asp?id=&lt;%= rs(&quot;id&quot;)%&gt; class=&quot;enlaceblanco&quot;&gt;+ info&lt;/a&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;

&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;
&lt;hr width=&quot;75%&quot; align=&quot;center&quot;&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;%
If columna = 2 then
columna = 0
%&gt;
&lt;/td&gt;&lt;tr&gt;
&lt;%
End If
rs.MoveNext
loop
%&gt;
&lt;/table&gt;
&lt;%
rs.Close
Con.Close
set rs=Nothing
Set con= Nothing
%&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;


</pre>

Tiene mucho de tablas y demas pero esta bastante completo.

Espero que te sirva de ayuda.

Juan

[almaluz]

Un poco despachurrado pero quizá te sirva. :P :P

Juan