Getrows bailando en una pata

[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