verileri sütunlara bölme

Arkadaşlar veri tabanından çektiğim verileri sütunlara ayıramadım. Şuan kullandığım kodlarda table kullanmak istemiyorum tamamen div kullanmak istiyorum. soldan-sağa yada yukardan aşağı sıralıyorum ama sütunlara bölüp sıralayamadım. Tableli kodlar aşağıda. 6 sütunda sıralama yapıyor. Yardımcı olursanız sevinirim.

  <%
startrw = 0
endrw = HLooper1__index
numberColumns = 6
numrows = -1
while((numrows <> 0) AND (Not rsCat.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
      <tr valign="top">
        <%
While ((startrw <= endrw) AND (Not rsCat.EOF))
%>
        <td align="left" height="1"><table width="120" height="16" border="0" cellpadding="0" cellspacing="0">
            <tr align="left" valign="top">
              <td width="161" height="1" valign="top"><div class="link2"> <a href="catAds.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "cat_id=" & rsCat.Fields.Item("CAT_ID").Value %>" title="Otomobil <%=(rsCat.Fields.Item("CAT_NAME").Value)%>" style="text-decoration: none">&nbsp;&nbsp;<%=(rsCat.Fields.Item("CAT_NAME").Value)%></a></div>
                (<%=(rsCat.Fields.Item("TOTAL").Value)%>)
                <% While ((rsSub__numRows <> 0) AND (NOT rsSub.EOF)) %>
                                            <%
  rsSub__index=rsSub__index+1
  rsSub__numRows=rsSub__numRows-1
  rsSub.MoveNext()
Wend
%>
             </td>
            </tr>
        </table></td>
        <%
	startrw = startrw + 1
	rsCat.MoveNext()
	Wend
	%>
      </tr>
      <%
 numrows=numrows-1
 Wend
 %>

Arkadaşlar çok mu zor bir soru yada anlatamadım mı?