regolare i rsOrders = Server.CreateObject (“ADODB.Recordset„)
rsOrders.Open “SELEZIONANO * dai oitems INTERNI UNIRE gli ordini SU oitems.orderid = orders.orderid dove orders.orderid=„ & ordine, connett.
Mentre non rsOrders.Eof
ccode = rsOrders (“catalogid„)
numitems = rsOrders (“numitems„)
il itemname = sostituisce (rsOrders (“itemname„), “
„,„ - ")
pdf. Cellula (5)
pdf. Cellula -1.0, Cstr (numitems), 0.1, “C„
pdf. Cellula (15)
pdf. Cellule 0.0, lasciate (itemname, 120), 0.1, “L„
pdf. Ln (6)
rsOrders.MoveNext
pdf. Chiuder ()
pdf. Produrre (" _orders \ pakbon_„ & invoiceid & “.pdf„ di D:\testshop)
Wend
class= >
Within di