hi, thats the same guy :)
i changed it coz its hard to find my old post ...
anyways, heres the code (again)
Dim ala As New ShoppingCart
If Not IsNothing(Session("shoppingcart")) Then
ala = Session("shoppingcart")
End If
Dim objCartItem As New cartitem
Dim intItems As Integer
objCartItem.itemcode = seqid
objCartItem.itemname = seqname
objCartItem.qty = Qty
objCartItem.ddate = eventDate
objCartItem.unitprice = unit
objCartItem.total = objCartItem.unitprice * objCartItem.qty
ala.addCartItem(objCartItem)
Session("cartcount") = ala.CountItemsinCart.ToString
Session("shoppingcart") = ala
----------------------------------------------------------
on Global.vb class:
----------------------------------------------------------
Public _ItemsinCart As New Collections.ArrayList
----------------------------------------------------------
on a separate class called ShoppingCart.vb :
----------------------------------------------------------
Public Structure cartitem
Public itemcode As String
Public itemname As String
Public ddate As DateTime
Public unitprice As Decimal
Public total As Decimal
Public coupon As String
Public grandtotal As Decimal
Public qty As Long
Public schedulecode As String
End Structure
Public Sub addCartItem(ByVal item As cartitem)
If Not isItemExists(item) Then
_ItemsinCart.Add(item)
End If
End Sub
"Mark Rae" wrote:
"ChiWhiteSox" <Ch*********@discussions.microsoft.comwrote in message
news:67**********************************@microsof t.com...
i just finished creating an asp.net application named booksApp.
Yesterday, you'd just finished creating an application called 'teddybears' -
you are a busy person, aren't you...? :-)
Which application will you just have finished tomorrow, I wonder...?
