Tabel sortering

Denne kode florer lidt rundt her på exp, og den er kanon..
MEN, jeg ville gerne have lavet den lidt..

at den sorter således her
A  E  I
B  F  J
C  G  K
D  H  L

i stedet for, som nu
A  B  C
D  E  F
G  H  I
J  K  L

Men jeg vil stadig gerne selv kunne angive at der må være max 3 kolonner..


koden:

<table border="0">
        <tr>
<%
AntalKolonner = 3
counter = 0
do while not RS.eof
  response.Write "<td align=""center"">"
  '
  ' TODO: Skriv dine informationer fra databasen her!
  ' f.eks.:
  response.Write "<img src=""" & RS("billede") & """><br>"
  response.Write "<div class=""infotext"">" & RS("info") & "</div>"
  response.Write "</td>"
  RS.movenext       

  counter = counter + 1
  if counter mod AntalKolonner = 0 then
    response.Write "</tr>"
    if not RS.eof then
      response.Write "<tr>"
    end if
  end if
loop
       
' udfyld resten af cellerne i den aktuelle række
do while counter mod AntalKolonner <> 0
  response.Write "<td>&nbsp;</td>"
  counter = counter + 1
loop
%>
  </tr>
</table>