kan ikke få border til at vises

Hejsa
Jeg kan kun få borders uden om hele resultatet men ikke imellem td'erne.

Er der en der ved hvad der er galt?


<html>
    <head>
        <title>Vagtplan</title>
        <style>
            body {font:7pt arial;size=1px;border:1px;}
            table {font:7pt tahoma;size=1px;border:1px;}
            td    {font:7pt tahoma;size=1px;border:1px;}
            tr    {font:7pt tahoma;size=1px;border:1px;}
        </style>
           
       
    </head>
    <body>
        <h1>Vagtplan</h1>
        <table cellpadding="1" cellspacing="0"
            style="border:1px solid silver;size=1px;">
            <tr>
                <td rowspan="<%= adoRs.RecordCount + 2 %>">
                   
                </td>
            </tr>
            <tr>
           
            <%
            For Each adoFld in adoRs.Fields

                Response.Write "<td style=""border-bottom:" & _
                    "1px solid silver;border:1px;""><b>" & adoFld.Name & _
                    "</b></td>"
            Next
            %>
           
            </tr>           
            <tr>
                <td style=""border-bottom:" & _
                    "1px solid silver;border:1px;"">
                <%
                strResults = adoRs.GetString(adClipString, _
                    adoRs.RecordCount, strColDelim, _
                    strRowDelim)
                strResults = Left(strResults, _
                    InStrRev(strResults,"<tr><td>") - 1)
                Response.Write strResults
                %>
            </tr>
        </table>
    </body>
</html>