[Resolvido] error '80020009' ?

[Juliano Meinen 0]

Boa tarde galera!

 

To com um probleminha e ñ saco muito de ASP ñ ! Ocorre esse erro:

 

error '80020009'

/M401/M4014031.ASP, line 81

 

 

O Código é o seguinte (linha 81 em destaque):

 

<% 
' Função: INVENTÁRIO
%>
<!-- #include virtual=/M001/M0019091.ASP -->
<!-- #include virtual=/M001/M0019012.ASP -->
<%


Set vlRSBusca = Server.CreateObject("ADODB.Recordset")
vlRSBusca.CursorLocation = 3
vlRSBusca.PageSize = 24

vlRSBusca.Open Session("vsConsulta"), vgoConexao, 1, 1
vnPagina = 1

vnID_LOCAL = Session("vnLocal")

vsApoioCabecalho = fsMontarDadosComplementares(vnID_LOCAL)

If vlRSBusca.RecordCount Mod 40 = 0 Then
	vnTotalPaginas = CInt(vlRSBusca.RecordCount / 40)
Else
	vnTotalPaginas = CInt(vlRSBusca.RecordCount / 40) + 1
End If

Session("vsInformacoesCabecalho") = "Fundação Nacional do Índio - FUNAI<br>Sistema de Patrimônio"
Session("vsDataHora") = fsMostrarData(fdObterDataAtual()) & "<br>" & fhObterHoraAtual()

Session("vsComplementoTitulo") = ""

'fsMontaDadosLocalHeadRelatorio(vnID_LOCAL)

If Not vlRSBusca.EoF Then
	Response.Write(fsMontaHeaderRelatorio())
	Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=2>" & VbCRLF)
	Do While Not vlRSBusca.EoF
		Response.Write(fsMontaCabecalhoRelatorioSemLogoComTotal(4024011, vnTotalPaginas))
		Response.Write(vsApoioCabecalho)
		Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=0>" & VbCRLF)
		vlRSBusca.AbsolutePage = vnPagina
		Response.Write(fsMontarTituloTabela(6, "5%§8%§52%§10%§20%§5%", "left§center§left§right§center§center", "<small>Tomb.§<small>Grupo  §<small>Descrição§<small>Valor§<small>Est. Conserv.§<small>Localização</small>"))
		vsVALOR_PARCIAL = "0"
		For vnRegistroCorrente = 1 To vlRSBusca.PageSize
			vnID_BEM_MATERIAL = vlRSBusca("ID_BEM_MATERIAL")
			if Len(vnID_BEM_MATERIAL) = 1 then vnID_BEM_MATERIAL = "0" & vnID_BEM_MATERIAL

			vsTOMBAMENTO = vlRSBusca("TOMBAMENTO")
			vsDESCRICAO = Left(vlRSBusca("DESCRICAO"), 200)
			vsVALOR = fsMostrarNumero(vlRSBusca("VALOR_MATERIAL"), 2)
			vsVALOR_TOTAL = vsVALOR_TOTAL + vlRSBusca("VALOR_MATERIAL")
			vsVALOR_PARCIAL = vsVALOR_PARCIAL + vlRSBusca("VALOR_MATERIAL")
			vnQTD_ITEMS = vnQTD_ITEMS + 1
			vsESTADO_CONSERVACAO = vlRSBusca("ESTADO_CONSERVACAO")
			vsCODIGO_SIAPA = vlRSBusca("CODIGO_SIAPA")
			Response.Write(fsMontarLinhaRelatorio(6, vnRegistroCorrente, "left§center§left§right§center§center", vsTOMBAMENTO & "§" & vnID_BEM_MATERIAL & "§" & vsDESCRICAO & "§" & vsVALOR & "§" & vsESTADO_CONSERVACAO & "§" & vsCODIGO_SIAPA, ""))
			vlRSBusca.MoveNext
			If vlRSBusca.EoF Then
				Exit For
			End If
		Next
		vnPagina = vnPagina + 1
		'Response.Write "<tr><td colspan=5>Valor parcial</td><td>" & vsVALOR_PARCIAL & "</td></tr>"
		Response.Write("</table>" & VbCLRF)
		Response.Write(fsMontaRodapeRelatorio())
		If Not vlRSBusca.EoF Then
			Response.Write("<div><br></div>" & VbCRLF)
		End If
	Loop
	vlRSBusca.Close
	Response.Write(fsMontaFooterRelatorio())
End If
Set vlRSBusca = Nothing

Function fsMontarDadosComplementares(ByVal vnID_UNIDADE_ORCAMENTARIA)
	Set vlRSApoio = Server.CreateObject("ADODB.Recordset")
	vsInstrucao = "SELECT L401.CODIGO_SIAPA, L401.SIGLA, L401.NOME_LOCAL FROM M401_LOCAIS L401 WHERE L401.ID_LOCAL = " & vnID_LOCAL
	

	vlRSApoio.Open vsInstrucao, vgoConexao, 1, 1



	
=======>>>> LINHA 81	fsMontarDadosComplementares = "" &_	 <<<<<=========== LINHA 81




		"<table border=0 width=100% cellspacing=0 cellpadding=0>" & VbCRLF &_
		"   <tr>" & VbCRLF &_
		"	  <td width=15% align=left>" & Session("vsFontePadrao") & "Local</td>" & VbCRLF &_
		"	  <td width=20% align=left>" & Session("vsFontePadrao") & "<b>" & vlRSApoio("CODIGO_SIAPA") & "</b></td>" & VbCRLF &_
		"	  <td width=20% align=left>" & Session("vsFontePadrao") & "<b>" & vlRSApoio("SIGLA") & "</b></td>" & VbCRLF &_
		"	  <td width=45% align=left>" & Session("vsFontePadrao") & "<b>" & vlRSApoio("NOME_LOCAL") & "</b></td>" & VbCRLF &_
		"  </tr>" & VbCRLF
	vlRSApoio.Close
End Function
...

 

Alguém pode me ajudar, pensei q era Buffer, ja até aumentei ele no IIS no arquivo "MetaBase.xml", porém ñ resolveu. O q eu faço ?

 

Grato !

[Juliano Meinen 0]

Uhu !!!!

 

\o/ Problema resolvido!

 

Após algumas dores d kabeça e pesquisas, aki no forum inclusive, consegui resolver o problema. Alterei o valor do Limite de Buffer do ASP no IIS. Para os que precisarem fazer isso, alterem a linha AspBufferingLimit do arquivo MetaBase.xml, contido na pasta "C:\WINDOWS\system32\inetsrv" do Windows 2003 Server.

 

Valew galera! Abraço!