Imprimir de 10 en 10

[Cuezaltzin]

HOLA A TODOS.

Tengo el siguiente problema tengo un campo en mi base de datos el cual almacena 100 caracteres
y en mi consulta ASP los imprimo en una columna en mi tabla, como puedo hacer para que me imprima
10 caracteres y se pase a otra columna y asi sucesivamente mostra de 10 en 10 registros por
columna en mi tabla.

Por su yauda GRACIAS.

[u_goldman]

Algo así?

Código:

While Not rs.EOF
  Response.Write "<td>" &  left(rs("campo"), 10) & "</td>"
  rs.MoveNext
Wend

Salu2,

[Cuezaltzin]

Mira tengo el siguiente codigo el cual me imprime todo dentro de una columna en mi tabla:
<%

do while not lobjRst.EOF

USAGES = lobjrst.fields("EBA")
cadena = USAGES

%>
<tr>

<td Textheight="10%" style="border-style: solid; border-width: 1px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">
<%for i=1 to 100 %>
<font face="Verdana" size="1" color="#666666">
<%response.write Mid(Cadena,i,1)%>&nbsp
</font>
<%next%></td>

</tr>

<% lobjRst.MoveNext
loop
lobjRst.Close
%>

Y necesito que me haga lo del codigo anterior que me imprima en cada columna solo 10 caracteres, que me imprima 10 columnas cada una con 10 caracteres.

Gracias por tu ayuda U_Goldman

[u_goldman]

While not rs.EOF
%>
<td>
<%=left(cadena, 10)%>
</td>
%>
x = x + 1
If x = 10 Then
x = 1
%>
</tr><tr>
<%
End If
rs.MoveNext
Wend
%>

A ver si así

[Cuezaltzin]

Hola de nuevo.

Como puedo hacer para que al imprimir la siguiente cadena no me imprima doble vez el espacio les pongo mi codigo para que me digan donde esta mi error:

<table border="1" width="30%" height="1%">

<%
cadena = " 000 00 00 000 00000 0 000 "
%>
<tr>
<td>
<%for i=1 to 25%>&nbsp;<%response.write Mid(Cadena,i,1)
next%></font></td>
</tr>

</table>

El problema es que si le quito el &nbsp; no me imprime los tres espacios del principio de mi cadena y necesito que se muestren dichos espacios en mi consulta.

Gracias por la ayuda.

[Xyan]

Espero que sea esto lo que quieres sino me avisas

<table border="1" width="30%" height="1%" ID="Table1">
<% cadena = " 000 00 00 000 00000 0 000 "%>
<tr>
<td>
<font>
<%for i=1 to 25 if Mid(Cadena,i,1) <> " " then%>
&nbsp;<%response.write Mid(Cadena,i,1)
end if
next%>
</font>
</td>
</tr>
</table>

Nota: esto parece deber de colegio

[Cuezaltzin]

No pues no mi buen Xyan me imprime 0 0 0 0 0 0 0 0 .....
sigo en las mismas alguna otra idea.

[Xyan]

Entonces quitale del código esto:
&nbsp;

y te imprimirá así:
000000000000000000

[Cuezaltzin]

Hola de nuevo, sigo intentando hacer que mi cadena que obtengo de mi base de datos me imprima por columna solo de 10 en 10 caracteres pero sigo sin poder hacerlo:
El formato de mi cadena es algo como esto:
cadena = 0 000 0000 00 000 0000 0000000, y lo que ago es remplazar los espacion por el -, ahora solo me falta que se pongan de 10 en 10, les pongo mi codigo para que me ayuden a resolver esto:

<table border="1" width="18%">
<% do while not lobjRst.EOF %>
<td>
<%
USAGES = lobjrst.fields("EBA")
cadena = USAGES

for i=1 to 25
Cadena = replace(Cadena," ","-")

response.write Mid(Cadena,i,1)
next
%>
</td>

</tr>
<%
lobjRst.MoveNext
loop
%>
</table>

Gracias por su comprensión y Ayuda.