Code to Add Address and Line Item Information to an Order
The OrderGroup object links to one or more OrderForm objects, and to one or more Address dictionaries. The OrderForm object references zero or more Item dictionaries through the Items list.
Create the Addresses dictionary object.
Set oOrderForm.Addresses = Server.CreateObject("Commerce.Dictionary")
Create two addresses, and add them to the order form.
Set oOrderForm.Addresses.HomeSweetHome = _ Server.CreateObject("Commerce.Dictionary") oOrderForm.Addresses.HomeSweetHome.ship_to_state = "WA" oOrderForm.Addresses.HomeSweetHome.ship_to_country = "USA" Set oOrderForm.Addresses.HomeInTheRockies = _ Server.CreateObject("Commerce.Dictionary") oOrderForm.Addresses.HomeInTheRockies.ship_to_state = "WY" oOrderForm.Addresses.HomeInTheRockies.ship_to_country = "USA"
Create the order form items SimpleList object. Add four line item dictionaries to the SimpleList object, providing line item information for several dictionary elements.
Set oOrderForm.Items = Server.CreateObject("Commerce.SimpleList") Call oOrderForm.Items.Add( Server.CreateObject("Commerce.Dictionary")) oOrderForm.Items(0).shipping_address_id = "test_ship_add_id1" oOrderForm.Items(0).tax_id = "test_tax_id_string" oOrderForm.Items(0).Value("_cy_oadjust_adjustedprice") = 100 oOrderForm.Items(0).Value("quantity") = 1 Call oOrderForm.Items.Add( Server.CreateObject("Commerce.Dictionary")) oOrderForm.Items(1).shipping_address_id = "test_ship_add_id2" oOrderForm.Items(1).tax_id = "test_tax_id_string2" oOrderForm.Items(1).Value("_cy_oadjust_adjustedprice") = 200 oOrderForm.Items(1).Value("quantity") = 1 Call oOrderForm.Items.Add( Server.CreateObject("Commerce.Dictionary")) oOrderForm.Items(2).shipping_address_id = "test_ship_add_id3" oOrderForm.Items(2).tax_id = "test_tax_id_string3" oOrderForm.Items(2).Value("_cy_oadjust_adjustedprice") = 100 oOrderForm.Items(2).Value("quantity") = 1 Call oOrderForm.Items.Add( Server.CreateObject("Commerce.Dictionary")) oOrderForm.Items(3).shipping_address_id = "ship_add_id4" oOrderForm.Items(3).tax_id = "test_tax_id_string4" oOrderForm.Items(3).Value("_cy_oadjust_adjustedprice") = 300 oOrderForm.Items(3).Value("quantity") = 1
Add the OrderForm object to the OrderGroup object.
oOrderGroup.AddOrderform oOrderForm
View the contents of one of the previously created items.
Dim Item, itemVal Set Item = oOrderGroup.GetItemInfo(1) itemVal = Item.Value("_cy_oadjust_adjustedprice") If Item.Value("_cy_oadjust_adjustedprice") <> 100 Then Response.Write "error in _cy_oadjust_adjustedprice" Else Response.Write "correct _cy_oadjust_adjustedprice:" _ & itemVal & "<br>" End If
Copyright © 2005 Microsoft Corporation.
All rights reserved.