Array Problems!
<script language="VB" runat="server">
Sub Page_Load (sender As Object, e As System.EventArgs)
End Sub
Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs)
Dim index As Integer = Convert.ToInt32(e.CommandArgument)
Const CART_COLUMNS = 1
Dim cartArray()
Dim cartMaxUsed = -1
Session("cartArray") = cartArray
Session("cartMaxUsed") = cartMaxUsed
Dim selectedrow as GridViewRow = gridview1.rows(index)
Dim Productcell as TableCell = selectedRow.Cells(1)
Dim strProduct as String = Productcell.text
Dim box As TextBox = CType(selectedRow.Cells(3).FindControl("Order_Qty"), TextBox)
Dim quantity as string = box.Text
Session("prodruct") = strProduct
Session("qty") = quantity
Dim cartItem = addCartElement()
cartArray(0,cartItem) = Session("product")
cartArray(1,cartItem) = Session("qty")
Session("cartArray") = cartArray
Session("cartMaxUsed") = cartMaxUsed
Response.Redirect("review2.aspx")
End Sub
Function addCartElement( )
If cartMaxUsed >= UBound(cartArray,2) Then
ReDim Preserve cartArray( CART_COLUMNS, cartMaxUsed + 10 )
End If
cartMaxUsed = cartMaxUsed + 1
addCartElement = cartMaxUsed
End Function
</script>

