Dividir um pacote ADODB.STREAM

[wosansone 0]

Olá amigos, sou novo aqui no fórum... Estou com o seguinte problema:

 

Tenho um arquivo "excel" zipado que é gerado automaticamente pelo meu BD oracle para download no meu sistema web interno. Até aqui sem problemas, mas quando o arquivo vem com um tamanho "grande"(2 megas) o sistema não faz o download. É apresentado a seguinte msg "Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web." Quando o arquivo tem até 1 mega vai sem problemas. Segue o código:

 

<!-- #include file="RELATORIOS.inc" -->
<%
	Dim rsr
	Dim SRelatorio
	Dim CodEmp
	Dim Usuario	
	Dim sNomeRel
	Dim sFilename
	Dim oStr
	Dim i 
	
	Response.Buffer = true
   
	CodEmp = Request("codemp")   
	sRelatorio = Request("RELATORIO")      
	Usuario = PegaUsuarioServidor2
	
	sFilename =  CodEmp & "_" & Usuario & "_" & sRelatorio & ".zip"

	set rsr = server.CreateObject ("ADODB.Recordset" ) 
	set rsr =  BuscaRel (CodEmp , Usuario , sRelatorio )  

	set oStr = server.createObject("adodb.stream")		

	oStr.open				
	oStr.type = 1
	
	oStr.write(rsr.fields("RELAT").value) 
	
	If oStr.Size <= 0 Then
	
		Response.Write "Não existe registro para gerar o relatório!"
		Response.End 
	
	End If


	Response.Clear 
	
    Response.ContentType = "application/x-msdownload"
    Response.AddHeader "content-disposition", "attachment; filename=" & sFileName
    Response.Flush
    
	Response.BinaryWrite rsr.fields("RELAT")
	Response.Flush     
    
    Response.End 
   
%>

Ja tentei dividir o tamanho total dele e aplicando "Response.BinaryWrite adoStream.Read(iTamanho)" dando um Response.Flush no final, mas também não funcionou.

 

Como faço para enviar o stream dividido e juntar no final? ou Como posso mandar esse arquivo separado de outra forma? Pacote de dados? Obrigado!

[xanburzum 169]

verifique se esta desabilitado a opção de exibir mensagens de erro HTTP amigáveis, no browser