Imprimir 10 caracteres por columna

[Cuezaltzin]

Hola a todos.

Tengo una consulta en la cual muestro los datos de mi BD, en la cual imprimo por ejemplo:

Dato = ABCDEFGHIJKLMNOPQRSTXYZ012345679

Esto me lo imprime en una sola columna lo que quiero hacer es que me imprima 10 caracteres y se pase a la siguiente columna y asi sucesivamente algo asi:

ABCDEFGHIJ----KLMNOPQRST----XYZ0123456----789

Como puedo hacer esto, Gracias por su AYUDA:

[eperezv]

seria mas o menos algo asi:

Dim i
For i = 1 To Len(Dato) Step 10
Response.Write (Mid(Dato,i,10)) & "----" 'u otro separador
Next i

Te sirve?

[Cuezaltzin]

Creo que me explique mal, mira esto es lo que tengo :

<table border="1" width="41%">
<tr>
<% While Not lobjRst.EOF %>
<td width="403"><% Response.Write lobjrst.Fields("Dato")%></td>
</tr>
<%
lobjRst.MoveNext
wend
%>
</table>

Con esto imprimo todo lo de mi BD dentro e un <td> lo que quiero hacer es que por cada <td> me imprima solo 10 caracteres lo de ----- me referia a otro <td>

[Cuezaltzin]

Ayuda:

Hice el siguiente codigo pero solo me imprime de 1 caracter en 1 como le puedo hacer para imprimir de 10 en 10:

<table border="1" width="41%">
<%
cadena = "ABCDEFGHIJKLMNOPQRSTWXYZ0123456789"
%>
<tr>
<%for i=1 to 34%>
<td width="403">
<%response.write MID(Cadena,i,1)%>
</td>
<%next%>
</tr>

</table>

[Cuezaltzin]

Que mal me vi ahora sip la solución ya me la habia dado el buen eperezv, pero por no poner atención en fin asi quedo correctamente.

<table border="1" width="41%">
<%
cadena = "ABCDEFGHIJKLMNOPQRSTWXYZ0123456789"
%>
<tr>
<%for i=1 to LEN(cadena) Step 10%>
<td width="403">
<%response.write (MID(Cadena,i,10))%>
</td>
<%next%>
</tr>

</table>