udskriv i koloner

Nedestående kode skriver ud således:
1|2|3
4|5|6

hvordan får jeg den til at udskrive således:
1|3|5
2|4|6


    strSQL = "Select * From users order by strNavn"
    Set rs = Conn.Execute(strSQL)
    maxAntalRows=50
    maxPrRow=4
    antal=0

    do while not rs.EOF and antal < (maxAntalRows*maxPrRow)
   
    if antal mod maxPrRow = 0 then response.write "<tr>"
          response.write "<td width='150' class='tbl_level2'><A Href='find_person.asp?ebruger=" & rs("strBruger")& "'>" & rs("strNavn")& "</td>"
          antal = antal+1
    if antal mod maxPrRow = 0 then response.write "</tr>"
          rs.Movenext
        loop
        if antal mod maxPrRow > 0 then response.write "</tr>"
            response.write "</table>"
    ' nu er data hentet ud, så lukke vores connection igen
    Conn.Close
    Set Conn = Nothing