udtræk fra access db i 4 koloner

strSQL = "Select * From users order by strNavn"
Set rs = Conn.Execute(strSQL)
do while not rs.EOF
response.write(rs("strNavn")& "<br>")
rs.Movenext
loop

udskriver :
1
2
3
osv..

hvordan får jeg udskriften til at se således ud:
1|4|7
2|5|8
3|6|9
osv..

med nogenlunde lige mange i hver række!

kan man gøre et eller andet med!
Record.count / 3 rækker