<%@ Import Namespace="System.Data" %> <% Dim dtblCart As DataTable Dim dcolColumn As DataColumn Dim drowItem As DataRow ' Create DataTable dtblCart = New DataTable( "Cart" ) ' Create Columns dcolColumn = New DataColumn( "ProductID", GetType( Int32 ) ) dtblCart.Columns.Add( dcolColumn ) dcolColumn = New DataColumn( "ProductName", GetType( String ) ) dtblCart.Columns.Add( dcolColumn ) dcolColumn = New DataColumn( "ProductCategory", GetType( String ) ) dtblCart.Columns.Add( dcolColumn ) dcolColumn = New DataColumn( "ProductPrice", GetType( Decimal ) ) dtblCart.Columns.Add( dcolColumn ) ' Add Rows drowItem = dtblCart.NewRow() drowItem( "ProductID" ) = 12 drowItem( "ProductName" ) = "Anchor Steam" drowItem( "ProductCategory" ) = "Beer" drowItem( "ProductPrice" ) = 7.90 dtblCart.Rows.Add( drowItem ) drowItem = dtblCart.NewRow() drowItem( "ProductID" ) = 13 drowItem( "ProductName" ) = "Samuel Adams" drowItem( "ProductCategory" ) = "Beer" drowItem( "ProductPrice" ) = 8.67 dtblCart.Rows.Add( drowItem ) ' Display DataTable For each drowItem in dtblCart.Rows For each dcolColumn in dtblCart.Columns Response.Write( drowItem( dcolColumn ) ) Next Next %>