Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров

If Len(Session{"ObjectOrderlD")) = 0 Then

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

DBCommand = New OleDbDataAdapter _
("Select ChoiceText, OrderChoicelD " _
& "from OrderChoices " _
& "Where ObjectOrderlD - " _
& Session("ObjectOrderlD"),DBConn)
DBCommand.Fill(DSSummaryData, _
"Gridlnfo")

DBCommand = New OleDbDataAdapter _
("Select Sum(ChoiceCost) as TheTotal " _
& "from OrderChoices " _
& "Where ObjectOrderlD = "
& Session("ObjectOrderlD"),DBConn)

DBCommand.Fill(DSSumrfaryData, _
"OrderTotal")

dgSummarylnfo.DataSource = _
DSSummaryData.Tables("Gridlnfo").DefaultView
dgSummarylnfо.DataBind()

IblTitle.BorderWidth = New Unit("7px")
IblTitle.BorderStyle = 9
IblTitle.Width = New Unit("90%")
IblTitle.Font.Size = New FontUnit("25pt")
IblTitle.Font.Name = "Arial"

IblTitle.Text = Application("TitleText")

IblTotal.Width = New Unit("90%")
IblTotal.BorderWidth = New Unit("4px")
IblTotal.BorderStyle = 9
IblTotal.Font.Size = New FontUnit("12pt")
IblTotal.Font.Bold = True
IblTotal.Font.Name = "Verdana"
IblTotal.Text = "Сумма заказа: " _
& FormatCurrency( _
DSSummaryData.Tables("OrderTotal").Rows(O).ItemC'TheTotal") )

Sub Click_Grid(ByVal Sender as Object, ByVal E as
DataGridConunandEventArgs)
Response.Redirect("./change_selection.aspx?OrderChoiceID=" _
& E.Item.Cells (1).Text)
End Sub

Response.Redirect("./change_selection.aspx?OrderChoiceID=" _
& E.Item.Cells(1).Text)

Страница Изменение комплектующей загружается в результате выполнения щелчка на ссылке Изменить, соответствующей одному из объектов в элементе управления DataGrid страницы Спецификация. На ней осуществляется замена объекта, указанного посетителем на итоговой странице. Рассмотрим используемые элементы управления.

<asp:Label
id="lblTitle"
runat="server"
/>

<asp:Label
id="lblQuestion"
runat=" server"
/>