Raggruppamento Aiuto

[tastiera]

con il codice che posto sto cercando di fare quanto di seguito,ma non riesco a venirne a capo con la formattazione, potete aiutarmi ?

ho una tabella TABELLA1con i seguenti campi

IDCAT
TITOLO
DESCRIZIONE

io dovrei visualizzare i dati in modo che per ogni IDCAT vengano visulizzati i titoli con lo stesso IDCAT il tutto racchiuso in una tabella con il bordo colorato.(tipo rettangolo)

Finita la prima IDCAT con di seguito i relativi records, la tabella si chiude e inizia un nuovo rettangolo con la nuova categoria.

tipo:
--------
IDCAT:1
TITOLO1
TITOLO2
---------

IDCAT:2
TITOLO4
TITOLO4
-------

sql="SELECT * FROM tabella1 ORDER BY IDCAT"

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
Dim category
category = ""
Do While Not rs.EOF

If category <> rs.Fields("idcat")Then%>

<table border="0" width="100%">
<tr>
<td align="center">
<table border="1" width="87%" id="table1" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td align="center">
<table border="0" width="98%" id="table2">
<tr>
<td align="center" bgcolor="#0066FF">
<table border="0" width="91%" id="table4">
<tr>
<td><font size="4" color="#FFFFFF"><%RESPONSE.WRITE RS("IDCAT")%><%category = rs.Fields("idcat")
end if%>
</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td ></td>
</tr>
<tr>
<td align="left" >
<table border="0" width="99%" id="table3">
<tr>
<td>
<%response.write rs("TITOLO")

rs.MoveNext
Loop
%>

</td>
</tr>
<tr>
<td>
<p align="right">
<a href="#top">
[img]inizio.jpg[/img]</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=Nothing
conn.close
set conn=nothing%>

[Mems]

Devi prima selezionare gli ID in maniera DISTINTA con DISTINCT e raggrupparli per ID con GROUP BY.
A questo punto, nel ciclo di lettura di questa query ne esegui un'altra che seleziona i titoli in base all'ID.

<%
set conn = server.createObject("ADODB.Connection")
conn.open ' la tua stringa di connessione

  sql1 = "SELECT DISTINCT(IDCAT) FROM tabella1 GROUP BY IDCAT"
  set rs1 = conn.execute(sql1)

    if not rs1.eof then
      do until rs1.eof
        response.write "<ul>"
        response.write "[*]" & rs1("IDACAT")

          sql2 = "SELECT titolo FROM tabella1 WHERE IDCAT = " & rs1("IDCAT")
          set rs2 = conn.execute(sql2)

            if not rs2.eof then
              response.write "<ul>"
              do until rs2.eof
                response.write "[*]" & rs2("titolo") & ""
                rs2.moveNext
              loop
              response.write "[/list]"
            end if

          rs2.close
          set rs2 = nothing

        response.write ""
        response.write "[/list]"
        rs1.moveNext
      loop
    end if

  rs1.close
  set rs1 = nothing

conn.close
set conn = nothing
%>