Højde på tabelrække dobbelt

Jeg henter ud data fra en Access-DB med filer før download så her:
<%
Dim sRowColor1
Dim objDB1
Dim objRS1
Dim sDBName1
'TODO: Verify database path...
sDBName1 = "driver={Microsoft Access Driver (*.mdb)};dbq=F:\.........\aspupload.mdb"
Set objDB1 = Server.CreateObject("ADODB.Connection")
objDB1.Open sDBName1
'TODO: Modify the next line to only return the records you want...
Set objRS1 = objDB1.Execute("select * from myimages")
If objRS1.EOF Then
    Response.Write("<b>Inga resultat fundna.</b>")
    objRS1.Close
    objDB1.Close
    Set objRS1 = Nothing
    Set objDB1 = Nothing
    Response.End
End If
Response.Write("<table border=1 cellpadding=0 cellspacing=0>")
Response.Write("<tr bgcolor=silver>")
Response.Write("<th filter=ALL><h4>Filestørrelse</h4></th>")
Response.Write("<th filter=ALL><h4>Beskrivelse</h4></th>")
Response.Write("<th filter=ALL><h4>Download filen</h4></th>")
Response.Write("</tr>")
sRowColor1 = "silver"
Do While Not objRS1.EOF
    Response.Write("<tr bgcolor=" & sRowColor1 & ">")
    Response.Write("<td><h5>" & objRS1("Filesize") & "</h5></td>")
    Response.Write("<td><h5>" & objRS1("Description") & "</h5></td>")
    Response.Write("<td><h5><A HREF=""http://domain.dk/upload/"& objRS1("Filename") &""">"& objRS1("Filename") &"</A></h5></td>")
    Response.Write("</tr>")
    objRS1.MoveNext
Loop
Response.Write("</table>")
Response.Write("</body>")
Response.Write("</html>")
objRS1.Close
objDB1.Close
Set objRS1 = Nothing
Set objDB1 = Nothing
%>
På bredden afpasses bredde efter tekst men højde er dobbelt. Hvordan fikser jeg det?: