<%
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) %>
|
|
|
|
|
| |
|
If you have any questions about
our checkout, email
us or call us to place your order by phone...
516-798-8400 |
|
|
|
|
|
|
|
|
|
