placer les rsOrders = le Server.CreateObject (« ADODB.Recordset »)
rsOrders.Open « CHOISISSENT * des oitems INTÉRIEURS JOINDRE les ordres SUR oitems.orderid = orders.orderid où orders.orderid= » et ordre, conn.
Tandis que pas rsOrders.Eof
ccode = rsOrders (« catalogid »)
numitems = rsOrders (« numitems »)
l'itemname = remplacent (rsOrders (« itemname »), «
», » - ")
pdf. Cellule (5)
pdf. Cellule -1.0, Cstr (numitems), 0.1, « C »
pdf. Cellule (15)
pdf. Cellule 0.0, laissée (itemname, 120), 0.1, « L »
pdf. Ln (6)
rsOrders.MoveNext
pdf. Se fermer ()
pdf. Produire (" _orders de D:\testshop \ pakbon_ » et invoiceid et « .pdf »)
Wend
class= >