Problemas no FPDF em ASP
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.
Discussão (1)
Carregando comentários...