ASP - error Dictionary no se puede agregar mas de 2 item

Hola quisiera saber si existe alguna manera para resolver que el el dictionary se agrege mas de 2 items

<%
Dim dictCart ' as dictionary
Dim sAction ' as string
Dim iItemID ' as integer
Dim iItemCount ' as integer
Dim iItemSize ' as string

If IsObject(Session("cart")) Then
Set dictCart = Session("cart")
Else
Set dictCart = Server.CreateObject("Scripting.Dictionary")
End If

sAction = CStr(Request.QueryString("action"))
iItemID = CInt(Request.QueryString("item"))
iItemCount = CInt(Request.QueryString("count"))
iItemSize = Request.QueryString("size")
%>

Como resolver que se pueda hacer esto

Case "add"
AddItemToCart iItemID, iItemCount, iItemSize
ShowItemsInCart

no te sirve concatenar los valores y dejarlo en un solo item ?

iItemID = 1 'CInt(Request.QueryString("item"))
iItemCount = "A"'CInt(Request.QueryString("count"))
iItemSize = "B"' Request.QueryString("size")

dictCart.Add iItemID,iItemCount & "|" & iItemSize & "|C"

aElementos = dictCart.Items
aClaves = dictCart.Keys

For each ip in dictCart
valor = Split(aElementos(ip-1),"|")
for i=0 to 2
Response.Write("keys : " & aClaves(ip-1) & "Elemento 1: " & valor(i) & "<br>")
next
Next

Salu2.