
03/06/2005, 17:54
|
| | Fecha de Ingreso: marzo-2005
Mensajes: 1.418
Antigüedad: 19 años, 10 meses Puntos: 9 | |
Acá están los códigos completos, yo no me refería a Imports, sino a Import Namespace="System.Collections", que lo pongo en la pagina ASPX. Te dejo el código, espero que puedas ayudarme con esto porque sinceramente yo no le veo el error.
Saludos xKnown y muchas gracias nuevamente por seguir con este tema. Te lo agradezco sinceramente. CartClasses.Vb
Imports System.Collections
Namespace System.Collections
Public Class ShopCart
Dim CartItems As New Hashtable
Public Sub addToCart(Id, Quantity)
if CartItems.Contains(Id) then
CartItems.Add(Id, Quantity)
else
CartItems.Add(Id, 1)
End If
End Sub
Public Sub DeleteProduct(Id)
CartItems.Remove(Id)
End Sub
End Class
End Namespace Cart.aspx
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Collections"%>
<script runat="server">
Sub Page_Load(Sender As object, E As EventArgs)
Dim MyCart As New ShopCart
MyCart.AddToCart(15,8)
End Sub
</script>
PD. Son los códigos completos de las dos páginas, la primera es donde creo la clase y en la segunda lógicamente la instancio. Gracias xKnown.! |