Tom tabelrække ønskes!

Tom tabelrække ønskes!
http://www.noerderiet.dk/ledig/afbux.asp?mode=info

Kunne tænke mig at få denne fil udskrevet således, at der optræder en tom linje, hvergang datoen skifter.
F.eks. står der 20-04 fire gange - derefter ønskes en tom tabelrække for at gøre det hele mere læsevenligt

Kan nogen hjælpe.

Koden er her:

<%
Dim conn, rs, web
%>
<% session.LCID = 1030 %>
<link rel="stylesheet" href="afbud.css" type="text/css">

<% set conn = Server.createobject("adodb.connection")

conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("afbux.mdb")%>

<% if Request.QueryString("mode") = "info" then

set rs = conn.execute("SELECT * FROM afbud WHERE dato > Date()-1 ORDER by dato")
  %>
<!-- ****************************************************** -->

<table width="100%">
  <tr>
    <td><b>Dato</b></td>
    <td><b>Fornavn</b></td>
    <td><b>Efternavn</b></td>
    <td><b>Tlf</b></td>
    <td><b>e-mail</b></td>
    <td><b>Web</b></td>
  </tr>
 

  <%
if rs.EOF then
else
Do Until rs.EOF
%>

<tr>
    <td width="10%"><%=rs("dato")%>&nbsp;</td>
    <td width="10%"><%=rs("navn1")%>&nbsp;</td>
    <td width="10%"><%=rs("navn2")%>&nbsp;</td>
    <td width="10%"><%=rs("tlf")%>&nbsp;</td>
   
    <% if rs("email") = "" then %>
    <td ALIGN="center" width="10%">&nbsp;</td>
    <% else %>
    <TD ALIGN="center" WIDTH="10%"><a href="mailto:<%=rs("email")%>"><IMG SRC="mail-gul.gif" BORDER="0" WIDTH="20" HEIGHT="15" ALIGN="bottom" ALT="Skriv til mig!"></td>
  <% end if %>
  <% web = rs("web2") %>
<% if not web = "" then %>
<td ALIGN="center" width="10%"><a href="http://<%=web%>" target="_blank"><IMG SRC="web-globe.gif" BORDER="0" WIDTH="16" HEIGHT="16" ALIGN="bottom" ALT="Se web!"></a></td>
<% else %>
  <td ALIGN="center" width="10%">&nbsp;</td>
<% end if %>
  </tr>
 

<%

RS.MoveNext
Loop
end if




RS.close
conn.close
Set RS = Nothing
Set conn = Nothing
%>
</table>

<% end if %>