I am trying to access a Session Disctionary object within Sub procedure. My
method looks like this and is getting called from a Input Tag. When I run
this i get a message "Type Mismatch" error. Can anyone help me?

-------------------
INPUT TAG:
-------------------
<input TYPE="image" NAME="order" SRC="images/product_orderitem.gif"
BORDER="0" onClick="addProduct()">

----------------------------------------------------------------------------
-------------------

--------------------
Procedure:
---------------------
<script LANGUAGE="VBScript">
<!--
 Sub addProduct()
  dim objShoppingCart
  Set objShoppingCart =Session("ShoppingCart")
    .......
    ...... Adding items to the Dictionary
    .......
  'Set Session("ShoppingCart") = objShoppingCart
 End Sub
-->
</script>