ERRO e Problemas com FPDF

[Daniel Metta]

Estou criando um contrato com o componente Fpdf e esta tudo certo, o porem é que quando eu temto puxar um campo do banco de dados que é o contrato que tem 11 paginas ele da um erro, quando eu puxo outro campo pequeno ele funciona perfeitamente.

Segue abaixo o codigo e o erro... Me ajudem please....

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<!--#include file="conexao.asp"-->
<%
Server.ScriptTimeout = 300000 

Dim i,pdf

strQuery = "SELECT * FROM contrato where id = 85"
Set ObjRs = objConn.Execute(strQuery)

Set pdf=CreateJsObject("FPDF")

pdf.CreatePDF "P","mm","A4"

pdf.SetPath("fpdf/")

pdf.SetFont "Arial","",10

pdf.Open()

pdf.SetMargins 15,20,15
pdf.AddPage()

pdf.SetAutoPageBreak true,20

pdf.Ln(20)
pdf.MultiCell 0,05,ObjRS("texto"),0,"J",0
pdf.Ln(5)
pdf.Cell 90,05,"Nome: " & ObjRS("com"),1,"L",0
pdf.Cell 90,05,"Valor: " & ObjRS("padrão"),1,"L",0


pdf.Close()
pdf.Output()

%>

Esse é o codigo que eu to usando, como dito funciona so que quando o texto é grande da o seguinte erro.

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Erro em tempo de execução do Microsoft JScript (0x800A001C)

Espaço insuficiente na pilha

/pdf/fpdf/includes/Basics.asp, line 190

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)

Página:

GET /pdf/gera.asp

Se eu colocar o texto dentro de uma variavel sem puxar do banco e essa variavel dentro do PDF funciona, mais tenho de puxar do banco...

alguém SABE O MOTIVO DESSE ERRO...

[bareta]

se funciona, tente colocar os valore em variaveis antes de iniciar o pdf..

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

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

<%

Server.ScriptTimeout = 300000

Dim i,pdf

strQuery = "SELECT * FROM contrato where id = 85"

Set ObjRs = objConn.Execute(strQuery)

if not ObjRs.eof then

texto=ObjRS("texto")

com=ObjRS("com")

padrão=ObjRS("padrão") 'Tira esse acento, se tiver no banco assim tire também.

Set pdf=CreateJsObject("FPDF")

pdf.CreatePDF "P","mm","A4"

pdf.SetPath("fpdf/")

pdf.SetFont "Arial","",10

pdf.Open()

pdf.SetMargins 15,20,15

pdf.AddPage()

pdf.SetAutoPageBreak true,20

pdf.Ln(20)

pdf.MultiCell 0,05,texto,0,"J",0

pdf.Ln(5)

pdf.Cell 90,05,"Nome: " & com,1,"L",0

pdf.Cell 90,05,"Valor: " & padrão,1,"L",0

pdf.Close()

pdf.Output()

else

response.write "nada encontrado"

end if

ObjRS.close

set ObjRS=nothing

%>

[Guest Daniel Metta]

Bareta,

Eu já tinha tentado isso das variaveis também, e o acento foi so um erro na digitação lá no sistema ta sem acento...

Mesmo desse jeito num ta funcionando... Se eu pegar um texto bem grande e colocar em uma variavel dentro do codigo sem puxar do banco ele funciona, peguei um texto com 85 paginas e coloque dentro de uma variavel ele foi perfeitamente.

Isso que é estranho....

[bareta]

bom tente criar um txt com esse texto primeiro, e depois criar o PDF.

[Marcelo A. Fonseca]

Galera, boa tarde.

Estou com um problema meio estranho.

Toda vez que eu gero o arquivo PDF está gerando com os mesmos dados, mesmo executando consultas diferentes.

Parece que está ficando no "CACHE" do navegador.. Somente depois que eu saio e entro novamente que eu consigo gerar certo.

Alguém sabe me dizer o que pode ser?

Obrigado.