Problemas no FPDF em ASP

[ernestovm 0]

Olá Amigos,

 

Alguém que saca FPDF, por favor, poderia ver se acha onde está o erro no script? Ele não imprime o conteúd cos campos. Os 3 primeiros são campos pequenos, porém a "Descricao" é um campo memo contendo um texto formatado em html ou word. E o engraçado é que alterei a nome de um dos campos para um que não existe na Tabela e o script reclamou que o campo não existe.

 

Veja o código:

 

dim VarCod

dim VarCap

 

VarCod = Request("cod")

VarCap = Request("cap")

nomIma = "Imagens/topoprincipal.jpg"

 

dim recordset1

dim Novela

dim Titulo

dim Descricao

dim Visita1

dim Visita2

dim TitNovela

dim Autor

 

if VarCap <> "" then

Set Banco = Server.CreateObject("ADODB.Connection")

Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\hshome\cearacul\xxxxxxxxxxxxx.blog.br\Dados\Dados.mdb;"

Set Tabela = Banco.Execute("Select * From Novelas Where Cod = "& VarCap)

Set InsAutor = Banco.Execute("SELECT * FROM Novela WHERE Cod = " & Tabela("Novela"))

end if

Set pdf=CreateJsObject("FPDF")

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

pdf.SetPath("fpdf/")

pdf.Open()

pdf.AddPage()

 

pdf.SetX(10)

pdf.SetY(10)

pdf.Image nomIma, 10, 1, 190, 45, "jpg", "http://www.xxxxxxxxxxxxx.blog.br/Default.asp"

pdf.SetFont "Courier","B",14

pdf.ln 10

pdf.Cell 10,60,trim(InsAutor("Titulo")),0,0,"L"

pdf.ln 4

pdf.Cell 10,65,trim(Tabela("Titulo")),0,0,"L"

pdf.ln 4

pdf.Cell 10,70,trim(InsAutor("Autor")),0,0,"L"

pdf.SetFont "Courier","",8

pdf.ln 6

pdf.Cell 10,1,trim(Tabela("Descricao")),0,0,"L"

pdf.Output()

 

Agradeço imensamente a ajuda.

[Mário Monteiro 179]

Olá ernestovm ,

 

Conforme o aviso existente no fórum de origem deste post, não é permitida a postagem de dúvidas nesta área, motivo pelo qual este tópico será movido para o fórum principal deste assunto.

 

Tópico Movido

 

Origem: Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP