<%
Dim Num:Num=0
Dim ProductIDArr,Products:Products=Session("ProductList")
If Products<>"" Then
 ProductIDArr=Split(Products,",")
 Num=Ubound(ProductIDArr)+1
End If
Response.Write "document.writeln(""<a href='/shop/shoppingcart.asp' target='_blank'><span style='color:#ff0000'> " & Num & "</span></a>"");"
%>
