Pdf desde asp

[GeG]

Aquí anexo código Myakire, Gracias!!

<%@language=vbscript%>

<!--#include file="fpdf.asp"-->
<%

Conexion


Query


g1 = nombre("nombre")


Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "L","mm","Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",10
pdf.Open()
pdf.SetMargins 20,20,50

'pdf.SetLeftMargin 40
'pdf.SetRightMargin 300
'pdf.SetTopMargin 30

pdf.AddPage()
pdf.Cell 40,25, g1


pdf.Image "imagenes/img.jpg", 21, 7, 33, 10, "JPG"

Do while not datos.eof



Query



g2 = datos("acuerdo")
g3 = datos("fecha_creacion")

pdf.SetTextColor 0,0,0
pdf.ln()
pdf.Cell 40,8, "Fecha Acuerdo: " & datos("fecha_creacion")
pdf.ln()
pdf.Cell 40,8, "Acuerdo: " & g2
pdf.ln()



If datos2.eof then
else
do while not datos2.eof
g3 = ">" & datos2("fecha")
g4 = datos2("enlace")
g5 = datos2("comentario")

pdf.SetTextColor 0,128,0
pdf.Cell 40,10,g3
pdf.Cell 40,10,g4 &":"
pdf.ln()
pdf.Cell 40,10,g5 <-- campo extenso (150 caracteres), y sale del margen der. del documento
pdf.ln()

datos2.movenext
loop
end if

datos.movenext
loop
pdf.Close()
pdf.Output()
%>