AdrianoR

Perfeito...era isso mesmo que estava faltaando Coloquei uma string na saída da busca - .asp?&nome=<%=Recordset1("nome")%>"> - e lá na página que gera o PDF inseri Recordset1.Source = "SELECT * FROM intima where nome='" & Request.QueryString("cat_nome") & "' ORDER BY nome" Funcionou perfeito! valeu obrigado!!

Vamos lá..o que aconteceu não foi falta de leitura e sim que esse loop faz com que apareça todos os dados do banco. o que gostaria fosse feito é gerar apenas os dados daquela busca anterior, no qual gerou um link "resultadoPDF.asp?cat_nome=maria" nessa tela do PDF estou tentando que gere apenas a tela com os dados da "MARIA", no qual foi objeto da busca no banco de dados. Ou seja....O PDF é dos dados de uma pessoa contatante no banco...ok Com relação aos dados do FPDF....estão perfeitos e MUITO bem explicados, tanto que a geração as págima, inserção de imagens e toda a configuração da mesma foram feitas perfeitamente, graças a explicação do script. Abraço

Coloquei agora, só que aparece um por cima do outro. Qual será o erro? <!--#include file="fpdf.asp"--> <% dim recordset1 dim Recordset1_numRows set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "DBQ=C:\rede\SI.mdb;Driver={Microsoft Access Driver (*.mdb)};" Recordset1.Source = "SELECT * FROM intima ORDER BY nome" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 dim pdf // criando o pdf set pdf=CreateJsObject("FPDF") // aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. // montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() // adcionando página pdf.AddPage() // setando fonte e tamanho pdf.SetFont "times","",12 // setando grossura da linha pdf.SetLineWidth(0.4) // setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. pdf.Line "7","52","200","52" // criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. while not Recordset1.Eof cat_nome = Recordset1("nome") // escrevendo um texto pdf.Text "70","35","ESTADO DO RIO GRANDE DO SUL" pdf.Text "90","40","POLÍCIA CIVIL" pdf.Text "92","45","DPM / DPRPA" pdf.Text "60","50","DÉCIMA SEGUNDA DELEGACIA DE POLÍCIA" pdf.Text "60","90",(recordset1.Fields.Item("nome").Value) Recordset1.movenext wend // na linha acima setamos primeiro a função Text, depois aonde começamos a escrever apartir do x e y e por fim o texto a ser adcionado // presta-se atenção aki, pois quem precisa fazer uma leitura de banco de dados ou resgatar uma session para ser impressa no pdf, n se pode usar as ' ' na função de texto nomIma = "logopc.jpg" pdf.Image nomIma, 93, 10, 20, 20, "JPG", "http://www.se_quizer_aqui_vai_o_link.html" // pdf.Image(string logopc.jpg, float 3, float 8, float 4 [, float h [, string type [, mixed link]]]) // fechando o pdf pdf.Output() %>

OL Bareta e pessoal. Estou aqui tentando gerar um arquivo pdf das informações contidas no banco de dados. Depois de fazer uma busca no banco de dados, escolho o item que preciso gerar as informções no PDF, mas o que acontece é que gera sempre o primeiro dado do banco de dados..o que estou fazendo de errado? Segue o script que tenho... <!--#include file="fpdf.asp"--> <% dim recordset1 dim Recordset1_numRows set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "DBQ=C:\rede\SI.mdb;Driver={Microsoft Access Driver (*.mdb)};" Recordset1.Source = "SELECT * FROM intima ORDER BY nome" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 dim pdf // criando o pdf set pdf=CreateJsObject("FPDF") // aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. // montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() // adcionando página pdf.AddPage() // setando fonte e tamanho pdf.SetFont "times","",12 // setando grossura da linha pdf.SetLineWidth(0.4) // setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. pdf.Line "7","52","200","52" // criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. // escrevendo um texto pdf.Text "70","35","ESTADO DO RIO GRANDE DO SUL" pdf.Text "90","40","POLÍCIA CIVIL" pdf.Text "92","45","DPM / DPRPA" pdf.Text "60","50","DÉCIMA SEGUNDA DELEGACIA DE POLÍCIA" pdf.Text "60","90",(recordset1.Fields.Item("nome").Value) // na linha acima setamos primeiro a função Text, depois aonde começamos a escrever apartir do x e y e por fim o texto a ser adcionado // presta-se atenção aki, pois quem precisa fazer uma leitura de banco de dados ou resgatar uma session para ser impressa no pdf, n se pode usar as ' ' na função de texto nomIma = "logopc.jpg" pdf.Image nomIma, 93, 10, 20, 20, "JPG", "http://www.se_quizer_aqui_vai_o_link.html" // pdf.Image(string logopc.jpg, float 3, float 8, float 4 [, float h [, string type [, mixed link]]]) // fechando o pdf pdf.Output() %>