ustawiać rsOrders = Server.CreateObject ("ADODB.Recordset")
rsOrders.Open "WYBIERAĆ * Od oitems WEWNĘTRZNY ŁĄCZYĆ rozkaz NA oitems.orderid = orders.orderid Dokąd orders.orderid=" & rozkaz, Conn
Podczas Gdy Nie rsOrders.Eof
ccode = rsOrders ("catalogid")
numitems = rsOrders ("numitems")
itemname = Zamieniać (rsOrders ("itemname"), " "," - ")
pdf. Komórka (5)
pdf. Komórka -1,0, Cstr (numitems), 0,1, "C"
pdf. Komórka (15)
pdf. Komórka 0,0, Opuszczać (itemname, 120), 0,1, "L"
pdf. Ln (6)
rsOrders.MoveNext
pdf. Zamykać ()
pdf. Przesyłać (" D:\testshop _orders \ pakbon_" & invoiceid & ".pdf")
Wend
|