rsOrders = Server.CreateObject („ADODB.Recordset“) einstellen
rsOrders.Open „WÄHLEN vor * von den INNEREN oitems Aufträgen AUF sich ANSCHLIESSEN oitems.orderid = orders.orderid wo orders.orderid=“ u. Auftrag, Anschl.
Während nicht rsOrders.Eof
ccode = rsOrders („catalogid“)
numitems = rsOrders („numitems“)
itemname = ersetzen (rsOrders („itemname“), „ “,“ - ")
pdf. Zelle (5)
pdf. Zelle -1.0, Cstr (numitems), 0.1, „C“
pdf. Zelle (15)
pdf. Zelle 0.0, gelassen (itemname, 120), 0.1, „L“
pdf. Ln (6)
rsOrders.MoveNext
pdf. Schließen ()
pdf. Ausgeben („D:\testshop _orders \ pakbon_“ u. invoiceid u. „.pdf“)
Wend
|