Imagen en varias paginas con PDF generado con ASP

[Fabu_dina]

A ver si alguien ha trabajado con AspPDF de Persits mi duda es la siguiente:

Tengo una codigo que genera una tabla con los registros de una DB en una PDF el problema es cuando quiero poner iimagenes pues no se como decirle que imprima en una segunda hoja.

digamos son mas de 30 registros por lo tanto se forman dos hojas de lista, cuando genero mis imagenes con la siguiente instruccion se generan en la misma hoja , no hace el salto de pagina, escribo el codigo para ver si alguien me puede ayudar gracias
::::::::::::::::::::::::::::::::::


dim intTotal
intTotal = 0
yimg=0
pag=1
rs.MoveFirst
set rsprodInfo = Server.CreateObject("ADODB.Recordset")
while not rs.EOF
Set rsprodInfo = Conn_inter.Execute("SELECT A.NUMERO_ART,A.DESC_ARTICULO,B.PRODUCTIMG FROM ARTICULOS A,ARTICULOS_WEB B WHERE A.NUMERO_ART='"&rs("numero_art")&"' AND A.NUMERO_ART=B.NUMERO_ART")


Set Row = Table.Rows.Add(80) ' row height

param.Add "alignment=left;color=black; indentx=1; indenty=30"
' Row.Cells(2).AddText "http://www.pcs.com.mx/images/Articulos/ "& rsProdInfo("NUMERO_ART") &" .jpg"
Row.Cells(2).AddText trim(rsProdInfo("NUMERO_ART")), param
Row.Cells(3).AddText rsProdInfo("DESC_ARTICULO"), param

param.Add "alignment=right;color=black"
Row.Cells(4).AddText pdf.FormatNumber(precio_pb(rs("NUMERO_ART"),rs("CV E_CAT_AR"),1,"M"), "precision=2, delimiter=true"), param
Row.Cells(5).AddText pdf.FormatNumber(precio_pb(rs("NUMERO_ART"),rs("CV E_CAT_AR"),2,"S"), "precision=2, delimiter=true"), param
Row.Cells(6).AddText pdf.FormatNumber(precio_pb(rs("NUMERO_ART"),rs("CV E_CAT_AR"),2,"S"), "precision=2, delimiter=true"), param

i_path = "../img/articulos/" & trim(rsProdInfo("NUMERO_ART")) & ".jpg"
Set Image = Doc.OpenImage( Server.MapPath( "../../images/articulos/" & trim(rsProdInfo("NUMERO_ART")) & ".jpg" ) )

if yimg = 640 then
pag=pag+2
yimg= 0
end if

Param("x") = 27
Param("y") = 635 - yimg
Param("ScaleX") = 1 / 3
Param("ScaleY") = 1 / 3
yimg= yimg + 80

Page.Canvas.DrawImage Image, Param
Param.Clear

rs.MoveNext
wend