gruppering af output fra DB

Jeg er ved at lave noget kode der skal få data ud fra en DB.. ligenu skriver den dataene ud ovenover hinanden, men jeg vil gerne ha dem stillet op, så alle outputs med fx datoen "20-04-2005" kommer i én gruppe og så med outputs under den, dernæst outputs fra datoen "21-04-2005" med outputs fra den dag under, osv. nogen der kan hjælpe mig? min kode ser pt således ud:

response.write "<table border='0' width='500'>"
    Do While Not Record.EOF
      response.write "<tr><td bgcolor='" & linecolor & "' colspan='1'></td></tr>"
      response.write "<tr><td width='100%'>" & font & Record("Dato") &" | " & font & Record("Fag") & "</td>"
      response.write "<tr><td width='100%' colspan='1'>" & font & Record("Tekst") & "</td></tr>"
    Record.MoveNext
    Loop
    response.write "</table>"