<%
dim CartEmpty, numItems
CartEmpty=true
numItems=0
If IsArray(Session("cart")) = false then
CartEmpty = true
else
acart=session("cart")
for i=lbound(acart) to ubound(acart)
if acart(i,0)<>"" and acart(i,1)<>"" then
numItems=numItems+acart(i,1)
end if
next
end if
If numItems=0 then
CartEmpty=true
else
CartEmpty=false
end if
%>
Eamonn Vereker Glass : Studio
