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
%>