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.

[xanburzum 169]

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.

você precisa ver sua estrutura da tabela, para nao chamar um campo k naun exista

[ernestovm 0]

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.

você precisa ver sua estrutura da tabela, para nao chamar um campo k naun exista

 

Os campos da tabela estão corretos. Eu inclusive, para saber se o script estava abrindo a tabela, mudei propositadamente o nome de um dos campos e ele reclamou. Mudei Titulo para Titulox.

[xanburzum 169]

dá um response.write na sua string SQL para ver o k esta sendo passado, nas duas

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

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