Gerando XLS

[Diego Ronan 1]

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

[xanburzum 169]

qual o conteúdo da sua SQL

[Diego Ronan 1]

é um select, dando um inner em 2 tabelas, puxando ao todo 180 colunas e neste caso 2000 registros

[xanburzum 169]

mesmo com esse conteudo nao era para ficar lento