eh non si capiva cosa volevi

Prova questo

codice:
<%

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conn.Execute("SELECT DISTINCT * FROM sottocat, cat WHERE cat.cod_cat=sottocat.cod_cat")

Dim old_catego
old_catego = ""%>

<%
str=""
Do While Not rs.EOF

if rs.Fields("cod_cat") <> old_Catego then
  str=str & "</div>"
  str=str & <div class=""categoria"">" 
  str=str & "

<label class="titolo_categoria">"rs.Fields("categoria") & "</label></p>"
  old_catego = rs.Fields("cod_cat")
End If

  str=str &  rs.Fields("sottocat") & "
"

rs.MoveNext

Loop

str=Mid (str,6) & "</div>"

response.write(str)

%>

nello style

.categoria{
border:1px dotted #000;
float:left;
width:20%;
}
.titolo_categoria{
font-weight:700;
color:#000;
}