Ddp asked: %@ Page debug=true Language=VB ContentType=text/html ResponseEncoding=iso-8859-1 % html head titleShopping Cart/title script runat=server Dim objDT As System.Data.DataTable Dim objDR As System.Data.DataRow Private Sub Page_Load(s As Object, e As EventArgs) If Not IsPostBack Then makeCart() End If End Sub Function makeCart() objDT = New System.Data.DataTable(Cart) objDT.Columns.Add(ID, GetType(Integer)) objDT.Columns(ID).AutoIncrement = True objDT.Columns(ID).AutoIncrementSeed = 1 objDT.Columns.Add(Quantity, [...]