DBDelete.CommandText = "Delete from ShoppingCartltems " _
& "Where ShoppingCartltemID = " _
& E.Item.Cells(4).Text

DBDelete.Connection = DBConn
DBDelete.Connection.Open

DBDelete.ExecuteNonQuery()

DBCommand = New OleDbDataAdapter _
("Select ShoppingCartltemID, ProductName, " _
& "Quantity, Price, Shipping From " _
& "ShoppingCartltems Where " _
& "CustomerlD = " & Session("CustomerID") _
& " Order By ProductName" _
, DBConn)

DBCommand.Fill(DSPageData, _
"ShoppingCart")

dgShoppingCart.DataSource = _
DSPageData.Tables("ShoppingCart").DefaultView
dgShoppingCart.DataBind

if DSPageData.Tables("ShoppingCart").Rows.Count = 0 Then

IblPriceTotal.Text = "В Вашей корзине " _
& "нет товаров."

IblShippingTotal.Text = ""
IblGrandTotal.Text = ""

DBCommand = New OleDbDataAdapter _
("Select Sum(Price) as PriceSum, " _
& "Sum(Shipping) as ShippingSum From " _
& "ShoppingCartltems Where " _
& "CustomerlD = " & Session("CustomerlD") _
, DBConn)
DBCommand. Fill (.DSPageData, _
"Totals")

IblPriceTotal.Text = "Итого:" _
5 FormatCurrency(DSPageData.Tables("Totals"). _
Rows(0).Item("PriceSum"))
IblShippingTotal.Text = "Доставка: " _
6 FormatCurrency(DSPageData.Tables("Totals"). _
Rows(O).Item("ShippingSum"))
IblGrandTotal.Text = "Всего: " _
& FormatCurrency(DSPageData.Tables("Totals"). _
Rows (0) . ItemC'PriceSum") + _
DSPageData.Tables("Totals"). _
Rows(O).Item("ShippingSum"))

Страница Оформление заказа

На странице Оформление заказа посетителю предоставляется возможность внести информацию о себе и отметить заказ как размещенный.

<asp:Label
id="lblTitle"
ВогderWidth="7рх"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
Text=<"CENTER>Оформление закаэа</CENTER>"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Bold="True"
Width="90%"
Text="3aпoлнитe каждое поле для оформления заказа."
runat="server"
/>

<asp:Panel
id="pnlForm"
runat="server"
/>

<asp:ValidationSummary ID="vsAllErrors"
DisplayMode="BulletList"
ShowMessageBox"Тгuе"
ShowSummary="False"
runat="server"
HeaderText="Нужно заполнить поля:"

<asp:TextBox
id="txtFirstName"
Columns="25"
MaxLength="50"
runat=server
/>