ajustar os rsOrders = o Server.CreateObject (“ADODB.Recordset”)
rsOrders.Open “SELECIONAM * dos oitems INTERNOS JUNTAR-SE a ordens EM oitems.orderid = orders.orderid onde orders.orderid=” & ordem, conexão
Quando não rsOrders.Eof
ccode = rsOrders (“catalogid”)
numitems = rsOrders (“numitems”)
o itemname = substitui (rsOrders (“itemname”), “
”,” - ")
pdf. Pilha (5)
pdf. Pilha -1.0, Cstr (numitems), 0.1, “C”
pdf. Pilha (15)
pdf. Pilha 0.0, deixada (itemname, 120), 0.1, “L”
pdf. Ln (6)
rsOrders.MoveNext
pdf. Fechar ()
pdf. Output (de “_orders D:\testshop \ pakbon_” & invoiceid & “.pdf”)
Wend
class= >
Within de