visualizzare record raggruppati per data

[elevation]

ciao a tutti,
data questa query

strSQL = "SELECT TOP 19 * FROM primopiano WHERE (ID<>"&id1&" AND ID<>"&ID2&" AND ID<>"&ID3&" AND ID<>"&ID4&") order by id desc"

visualizzo i record restituiti con questo codice:

<%
rs.Open strsql,OBJdb,1,3
for I=1 to 20
if rs.eof then exit for
response.write titolo=rs("titolo")
RS.MoveNext
Next
rs.Close
%>

che crea una lista di questo tipo:
titolo1
titolo2
titolo3

ora mi occorrerebbe dividere i titoli in base al campo "data", ossia:

20/05/2007:
titolo1
titolo2

21/05/2007:
titolo3

Immagino si debba raggruppare per il campo data ma non so come stampare nel modo piu' efficiente possibile una sola volta la data per ogni gruppo di record
tra l'altro il campo data contiene anche l'ora (che non va utilizzata nel raggruppamento).

idee?