<%
Dim intBasketCount as integer = 0
Dim intBasketID as Integer
Try
intBasketID = objToken.Basket.Order_ID
Catch
intBasketID = 0
End Try
Dim arrBasket(,) as String = objToken.StoreGroupDB.QueryArray("SELECT Name,Quantity FROM ORDERITEMS WHERE Order_ID=" & intBasketID & " AND Product_ID>0")
if isarray(arrBasket)
response.write("")
intBasketCount = UBound(arrBasket, 2) + 1
dim intBasketLoop as integer
for intBasketLoop = 0 to (intBasketCount - 1)
response.write("
| " & arrBasket(0,intBasketLoop) & " |
" & vbcrlf)
next intBasketLoop
response.write("")
end if
%>
<% if isarray(arrBasket) %>
