vastgestelde rsOrders = Server.CreateObject („ADODB.Recordset“)
rsOrders.Open „UITGEZOCHT * van oitems BINNEN SLUITEN zich aan bij orden OP oitems.orderid = orders.orderid waar orders.orderid=“ & orde, Conn
Terwijl niet rsOrders.Eof
ccode = rsOrders („catalogid“)
numitems = rsOrders („numitems“)
itemname = vervang (rsOrders („itemname“), „ “,“ - „)
pdf. Cel (5)
pdf. Cel -1.0, Cstr (numitems), 0.1, „C“
pdf. Cel (15)
pdf. Verlaten cel 0.0, (itemname, 120), 0.1, „L“
pdf. Ln (6)
rsOrders.MoveNext
pdf. Sluit ()
pdf. Output („D:\testshop _orders \ pakbon_“ & invoiceid & „.pdf“)
Wend
|