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%>