<%if uBound(basketItems)>0 then%>

<% Dim bGiftBoxItemFound Dim bDisableQtyBox Dim lLinks bGiftBoxItemFound=false For GENERIC_VARIABLE=1 to UBound(basketItems) basketvarItem = basketItems(GENERIC_VARIABLE) bDisableQtyBox=false if basketvarItem(7) = GIFT_BOX_ITEM_NUM then bGiftBoxItemFound=true bDisableQtyBox=true end if %> <%if GENERIC_VARIABLE = UBound(basketItems)then%> <%else%> <%end if%> <%Next%>

ITEM #

ITEM

QTY

SHIP TO A FRIEND

UNIT PRICE

TOTAL PRICE

DELETE

<%if bDisableQtyBox=true then%> <%=basketvarItem(7)%> <%else%> <%=basketvarItem(7)%> <%end if%>

<%if bDisableQtyBox=true then%> <%=basketvarItem(9)%>
<%=basketvarItem(18)%> <%else%> <%=basketvarItem(9)%> <%=basketvarItem(13)%>
<%=basketvarItem(18)%>
<%if basketvarItem(17) = "" then%> Available for Immediate Shipping <%else%> Available for Shipping after <%=basketvarItem(17)%> <%end if%> <%end if%>

<%if bDisableQtyBox=true then%> <%=basketvarItem(4)%> <%else%> <%end if%>

<% if basketvarItem(14) <> "" and (basketvarItem(16) <> "0" and basketvarItem(16) <> "1" ) then%>

<%=basketvarItem(14)%> <%=basketvarItem(15)%>

<% end if %> Ship to a Friend?

<%=FormatCurrency(basketvarItem(6),2)%>

<%=FormatCurrency(basketvarItem(11),2)%>

<%=getRedesignPromoMsg()%>

SubTotal

<%=FormatCurrency(basketvarItem(12),2)%>

<%if bGiftBoxItemFound=false then%> <%end if%>

<%else%> <%end if%>