Getrows bailando en una pata

[Patán]

Hola,
resulta que tengo un getrows donde estan todas las consultas hechas a una base de datos.
Mi pregunta es como puedo imprimir esos resultados en tres columnas o mas. Digamos que pude hacerlo pero de una forma medio cavernicola creo, ya que si el numero de registros devueltos dividido la cantidad de columnas en la que quiero imprimir ese resultado no es un numero entero. Salta un error El subíndice está fuera del intervalo: [number: 147] .
Como lo estoy haciendo ahora es

Código:

 for I=0 to UBound(mitabla,2) step 3
%>
<tr>
<td><%=miTabla(1,i)%></td>
<td><%=miTabla(1,i+1)%></td>
<td><%=miTabla(1,i+2)%></td>
<%next%>

Por favor ayuda!!!!!!!!!!!

[urjose]

pues la verdad no te entendi mucho pero prueba así:
Counter=1
for I=0 to UBound(mitabla,2)
If counter=1 Then
Response.Write "<tr>"
End If
%>
<td><%=miTabla(1,i)%></td>
<%
If Counter=3 Then
Response.Write "</tr>"
Counter=1
End If
Counter=Counter+1
next
If Counter<=2 Then
Response.Write "</tr>"
End If
%>

Espero que algo así funcione...

Saludos

[Patán]

Gracias por responder.
Al final salió, lo hice de esta forma guiado por vos

Código:

intRecordCount = UBound(arrRecords,2)

Response.Write "<table>" & vbcrlf

For i=0 to intRecordCount
  If i mod 3 = 0 Then
    Response.Write "  <tr>" & vbcrlf
  End If

 Response.Write "<td>" & arrRecords(0,i) & "</td>"

  If i mod 3 = 1 Then
    Response.Write "  </td>" & vbcrlf
  End If
Next 'i'

If (i+2) mod 3 = 1 Then
  response.write "    <td> </td><td> </td>" & vbcrlf & _
                 "  </tr>" & vbcrlf
End If

Response.Write "</table>" & vbcrlf