Gerando XLS

Pessoal

Estou com um problema: Eu gero um arquivo XLS conforme o script abaixo, mas ele esta ficando com um tamanho muito grande devido as trs e tds. Se mantenho elas, o arquivo fica com algo em torno de 27mb, sem elas, somente com infos do banco, fica com 2mb.

<!--#include file="conexao.asp" -->

<%
FileName="relatorio.xls"
Response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=" & FileName
%>

<table width="400" height="150">
 <tr>
 <td width="400" height="150">
 <img src="logo.png"/>
 </td>
 </tr>
</table>
<table width="100%" bgcolor="#FFFFFF">
<tr>
 <td>

 <table border="1" cellspacing="1" cellpadding="0" bordercolor="#CCCCCC" bgcolor="#FFFFFF" width="90%">

 <tr>

<%

SQL = "PROC_XLS @Empresa = " & X
set rs = conn.execute(SQL)

for i =0 to rs.fields.Count - 1
%>

<td style="background-color:#006699;" >
	<%=rs(i).name%>
 </td>

<%
next
%>
</tr>
<%
while not rs.eof

	response.Write("<tr>")
	for i = 0 to rs.fields.Count -1

%>

 <td height="20">
 <%=rs(i)%>
 </td>

<%

next

	response.Write("</tr>")
	rs.movenext

wend
%>

</table>
 </td>
	</tr>
</table>

<!--#include file="fechaconexao.asp" -->

Estou tendo problemas com este arquivo em maquina de clientes devido ao tamanho. Vocês conhecem alguma outra forma de otimizar esta criação?

Abs