Vb asp error ---- for each cartItem in shnta_eCart.Items do

Question

I'm getting an error at this line
"for each cartItem in shnta_eCart.Items do"
<%
'For 4 or less maps, shipping is 7.95. Add 1 for each
additional map over
4.
'Loop thru all the current cart items checking for map
orders. Sum the
Quantity of each map order
'and then calculate the shipping.
function TheLeeRuleForShippingMaps()
additionalChargePerMap = 1
breakPoint = 4
quantity = 0
totalCharge = 0
'Count the number of maps orders. Map orders are
distinguished by the
FrameID: 1, 2, 3, 4. Total the Quantity field
'of all map orders. 1 = no addon, 2 = black frame 3 = gold
frame 4 = oak
frame
for each cartItem in shnta_eCart.Items do
if (cartItem.FrameID = 1 or cartItem.FrameID = 2 or
cartItem.FrameID = 3
or cartItem.FrameID = 4) then
quantity = quantity + cartItem.Quantity
end if
end for
'Calculate the shipping for the total quantity of maps
ordered
if (quantity > 0 AND quantity <= breakPoint) then
totalCharge = totalCharge + 7.95'Result
else if (quantity > breakPoint)
totalCharge = totalCharge + (quantity - breakPoint) *
additionalChargePerMap'Result
end if
TheLeeRuleForShippingMaps =
WA_eCart_FormatNumber(totalCharge,
shnta_eCart.ForceDecimalsC, shnta_eCart.DecimalPlacesC)
end function
%>

Answer 1

>so change it to the following? NEXT?
No, like this:
for each cartItem in shnta_eCart.Items
if (cartItem.FrameID = 1 or cartItem.FrameID = 2 or
cartItem.FrameID = 3 or cartItem.FrameID = 4) then
quantity = quantity + cartItem.Quantity
end if
next