grazie a voi e in particolar modo a mosquito70 sono riuscito a creare il pdf:

http://www.sitowebflash.com/public/fpdf/miofile.pdf

come vedete le foto sono incolonnate da sinistra verso destra sull'asse delle X, come fare per incolonnarle sull'asse delle Y?

codice:
<%
dim rs, sql
cont_vero = "true"

id=Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
if stampagiacenza = true then
	
		if stampaimmagini = false then
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & "  and Gfoto <> '""' order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
		else 
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & " order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
		end if
	else
		if stampaimmagini = false then
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & "  and Gfoto <> '""'and (giacenza >0 or giacenzainfinita = true) order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
		else 
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & " and (giacenza >0 or giacenzainfinita = true)order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
	end if
	
	end if
'-------------------------------
Function RemoveTagHTML(sTexto)

sTextoSemTag = sTexto

Set ExpRegular = New RegExp 

ExpRegular.IgnoreCase = True
ExpRegular.Global = True
ExpRegular.Pattern = "<[^>]*>"
sTextoSemTag = ExpRegular.Replace(sTextoSemTag, "")

Set ExpRegular = Nothing

RemoveTagHTML = sTextoSemTag
End Function

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("public/fpdf/")
pdf.Open()
pdf.LoadModels("NumeroPagina")
pdf.AddPage()
Do While NOT RS.EOF
pdf.SetFont "Arial","B",11
pdf.Ln(8)
pdf.Cell 10,10, RS("id")
pdf.Ln(12)
pdf.Image "/"&RS("gfoto"),pdf.GetY(),partenzaverticale,grandezzafoto
pdf.SetFont "Arial","I",9
pdf.MultiCell 0,5,RS("data"), 0, "", 0
pdf.Cell 60,10,"____________"
pdf.Ln(6)
pdf.SetFont "arial","",10

pdf.Close()
     
	'PDF.Output
	PDF.Output Server.MapPath("/public/fpdf/miofile.pdf"), true
%>