Tablodaki Bilgileri Gruplar Halinde Yazdırmak?

Merhaba arkadaşlar
benim yapmak istediğim bir şey var ama yapamadim, çözümünü bilen varsa anlatirsa sevinirim. Veritabanındaki bilgileri gruplar halinda sayfaya yazdırmak istiyorum. mesela tabloda 20 kayit varsa 5 li gruplar halinde yan yana sayfada gözükmesini istiyorum. Şu şekilde;

Veri1 Veri6 Veri11
Veri2 Veri7 Veri12
Veri3 Veri8 Veri13
Veri4 Veri9 Veri14
Veri5 Veri10 Veri15

Yardim edebilecek olan var mı?

varmiş forumda gördüm ama gene yazayım buraya

<%
set habergoster=Server.CreateObject("ADODB.RecordSet")
habergoster.Open "select * from kurumlar",duybaglan,adOpenForwardOnly
%>
<%
    vInt = 0
    vLimit = 3
    tWidth = CInt(10 / vLimit)


    Response.Write "<table border=""0"" cellpadding=""1"" cellspacing=""2"">"

    While NOT habergoster.EOF
        If (vInt mod vLimit) = 0 Then Response.Write "<tr>"
    
            Response.Write "<td><ul><li><b>" & habergoster("kurum") & "</b></li></ul></td>"
        
        If (vInt mod vLimit)=vLimit-1 Then Response.Write "</tr>"
        
        vInt = vInt + 1
        habergoster.MoveNext
    Wend

    For i = 0 To vLimit - (vInt mod vLimit) - 1
        Response.Write     "<td>&nbsp;</td>"
    Next
    

    Response.Write "</table>"
%>