http://www.faqsdelweb.com/index.php?..._id=22&q_id=99
Según tu código:
.
.
.
Response.Write("<TABLE><TR>")
'Recorremos el vector
'Desde el primero hasta el último "registro"...
counter=0
for I = 0 to UBound(miTabla,2)
Response.Write("<TD>" & miTabla(Campo1, I) & "</TD>")
counter=counter+1
If counter Mod 3=0 Then Response.Write "</tr><tr>"
next
Response.Write "</tr></table>"
Lo anterior deberia mostrarte en columnas de 3 si quieres de 2 modificar Mod 2=0
Saludos