<% Dim strText, intSpace, strWord, intCounter intSpace =1 Dim dictCart ' as dictionary If IsObject(Session("cart")) Then Set dictCart = Session("cart") Else Set dictCart = Server.CreateObject("Scripting.Dictionary") End If %> e-Catalog

  

  
 
<%Set Session("cart") = dictCart%>