If Len(Session("CustomerlD")) = 0 Then

DBInsert.CommandText = "Insert Into Customers " _
& "(Status, DateEntered) values ('Shopping', '" _
& Now() & "')"
DBInsert.ExecuteNonQuery()

DBCommand = New OleDbDataAdapter _
("Select Max(CustomerlD) as MaxID " _
& "From Customers", DBConn)
DBCommand.Till(DSPageData, _
"CustomerlD")

Session("CustomerlD") = DSPageData.Tables("CustomerlD"). _
Rows(O).Item("MaxID")

DBCommand = New OleDbDataAdapter _
("Select ProductName, ShippingCharge, " _
& "Price From Products Where " _
& "ProductID = " & Request.QueryString("ProductID") _
, DBConn)
DBCommand.Fill(DSPageData, _
"ProductData")

CurrentQuantity = txtQuantity.Text

CurrentPrice = CurrentQuantity * _
DSPageData.Tables("ProductData"). _
Rows(O) .ItemC'Price")

CurrentShipping = CurrentQuantity * _
DSPageData.Tables("ProductData"). _
Rows(0).Item("ShippingCharge")

CurrentProductName = DSPageData.Tables("ProductData"). _
Rows(O).Item("ProductName")

DBInsert.CommandText = "Insert Into ShoppingCartltems " _
& "(CustomerlD, ProductName, Quantity, Price, Shipping) " _
& "values (" _
& Session("CustomerlD") & ", " _
& "'" & CurrentProductName & "', " _
& CurrentQuantity & ", " _
& CurrentPrice & ", " _
& CurrentShipping & ")"
DBInsert.ExecuteNonQuery()

Response.Redirect("./shopping_cart.aspx")

Страница Корзина покупателя

Код, относящийся к странице Корзина покупателя, служит для представления всех товаров, заказанных посетителем. Здесь же посетителю предоставляется возможность удалять товары из корзины.

<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
Text="<CENTER>Kopзинa покупателя</СЕМТЕК>"
runat="server"
/>