<%
'Declare shopping cart
Dim objBasket
Dim strXMLBasket
Dim NumberOfItemsInBasket
'Retrieve session objBasket
If isObject(Session("objBasket"))=false Then
Set objBasket = Server.CreateObject("ShoppingTool.Basket")
else
Set objBasket = session("objBasket")
end if
strXMLBasket = Session("objBasket")
NumberOfItemsInBasket = objBasket.TotalRecord(strXMLBasket)%>
Barcode Scanner
