Originariamente inviato da Lino80
uppettone :

code:

codice:
Set PDF = CreateJsObject("FPDF")
	pdf.CreatePDF()
	PDF.SetPath("public/fpdf/")
	pdf.SetFont "Arial","",16
	PDF.Open
	
	

	PDF.SetAuthor "Arredibombaci"
	PDF.SetCreator "ASP2PDF"
	PDF.SetKeywords ""
	PDF.SetSubject "Catalogo"
	PDF.SetTitle "Catalogo"



	Dim I, PartenzaY
	PartenzaY = 40
	
	PDF.AddPage
	Do While NOT RS.EOF
	
	PartenzaY = PartenzaY + 2
	
	
		if rs("gfoto")<>"" then
		pdf.sety 0
		pdf.Image "/"&RS("gfoto"),pdf.GetY(),partenzaverticale,grandezzafoto
		end if
help please
Spiega meglio il tuo problema.