udtræk fra excel ark

Jeg vil gerne trække noget data ud fra et regneark.
Arket består af kolonner overskrifterne januar - december + total
samt nogle rækker med navne på nogle kontorer.
Der er p.t. data o rækkerne for januar og februar, men i alle rækkerne for kolonne marts m.v. står der nuller idet der ikke er opdateret noget.
Nu vil jeg gerne præsentere dette på en asp side så der kun bliver vist når der er opdateret noget i en kolonne?
Jeg har forsøgt mig med følgende kode, men den vælger det hele.


<%

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=Microsoft Excel Driver (*.xls);" _
            & "DBQ=" & Server.MapPath("afdeling.xls")

Set RS = conn.Execute("Select * From [afdeling1$] ")
%>

<TABLE Border=1 CellPadding=3>
<TR>
<% For f = 0 To RS.Fields.Count-1 %>
    <TH><% = RS.Fields(f).name %></TH>
<% Next %>
</TR>
<% Do While Not RS.eof %>
    <TR>
    <% For f = 0 To RS.Fields.Count-1 %>
        <TD><% = RS.Fields(0).value %></TD>
    <% Next %>
    </TR>
    <% RS.MoveNext %>
<% Loop %>
<%

rs.close
Set rs = nothing

conn.close
Set conn = nothing
%>
</TABLE>

</BODY></HTML>