Udskriv array alfabetisk i 4 kolonner

Hejsa
Jeg har i dag et stykke kode, som kan udskrive et given array alfabetisk i 2 kolonner. Hvis fx arrayet indeholder "a,b,c,d,e,f,g" udskrives det sådan her:

a    e
b    f
c    g
d

Men jeg vil gerne have det i 4 kolonner, altså sådan her:

a    c    e    g
b    d    f

Det kode jeg har i dag, der kan lave i 2 ser sådan her ud:

***********************
'opdel i array
arrayOfLinks = split(strLinks, "</a>")
                   
'lav array til uskrivning i tabel
dim dataArrayKat
redim dataArrayKat(1,0)
count = UBound(arrayOfLinks)
if count mod 2 = 0 then
    half = (count/2)-1
else
    half = int(count/2)
end if
redim dataArrayKat(1,half)
a=0
b=0
for i=0 to UBound(arrayOfLinks)-1
  if a<=half then
    dataArrayKat(0,b) = arrayOfLinks(i)
  else
    dataArrayKat(1,(b-half)-1) = arrayOfLinks(i)
  end if
  a=a+1
  b=b+1
next
                   
'start udskrivning
Response.Write "<table width=""100%"">"
for a=0 to half
  Response.write "<tr>"
  for b=0 to 1
    Response.write "<td class=""padding"" width=""50%"" valign=""top"">" & dataArrayKat(b,a) &"</td>"
  next
  Response.write "</tr>"
next
Response.Write "</table>"
***********************

Nogle der kan få det lavet om, så den kan udskrive i 4 kolonner?