<% 'newly commented.. code is added to disable following section Dim checklTCCount checklTCCount = lTCCount checklTCCount = -1 'if lTCCount > 0 then if checklTCCount > 0 then if lTCProducts(1)(27) > 0 or lTCProducts(1)(9) > 0 or lTCProducts(1)(11) > 0 &_ lTCProducts(1)(13) > 0 or lTCProducts(1)(15) > 0 or lTCProducts(1)(17) > 0 then %> <%if lTCProducts(1)(27) > 0 then '27 long descriotion%> <%end if if lTCProducts(1)(9) > 0 then '9 origin of state%> <%end if if lTCProducts(1)(11) > 0 then '11 caffeine%> <%end if if lTCProducts(1)(13) > 0 then '13 tasting notes %> <%end if if lTCProducts(1)(15) > 0 then '15 preparation and serving %> <%end if if lTCProducts(1)(17) > 0 then '17 interesting anecdotes%> <%end if end if end if%>
View Larger
Tea Chings
Description
Origin / Estate
caffeine
Tasting Notes
Preparation & Serving
Interesting Anecdotes
<%if lSkuCount >0 then%> <% else %> <%end if%> <% if len(lMsg) > 0 then %> <% end if 'newly commented out lVPCount = -1 'just to make sure newly commented out works IF lVPCount > 0 THEN%> <%END IF%>

<%=lName%>

<%=lDescription%>

<%=sOptionText%>

<%=lDisplayPrice%>

Quantity



sorry, this item is not available.

<%=lMsg%>
">View Basket">Keep Shopping">Checkout
<%For iStart=1 to lVPCount%> <%NEXT%>

<%=lVPProducts(iStart)(4)%><%=lVPProducts(iStart)(8)%> - <%=FormatCurrency(lVPProducts(iStart)(7),2)%>
<%IF lCSCount > 0 THEN%> <%For iStart=1 to lCSCount%> <%IF iStart = 2 THEN EXIT FOR NEXT%> <%END IF%>
May We Suggest

<%=lCSProducts(iStart)(2)%>
<%=FormatCurrency(lCSProducts(iStart)(5),2)%>