Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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"))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.
>
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.
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"))
você precisa ver sua estrutura da tabela, para nao chamar um campo k naun exista