<asp:Label
id="lblCategoryName"
Font-Bold="True"
runat="server"
/>

После него следуют еще два элемента управления Label: в первом дается полное описание продукта, а во втором представлена цена товара.

<asp:TextBox
id="txtQuantity"
Columns="25"
MaxLength=" 30"
runat=server
/>

<asp:RequiredFieldValidator
id="rfvQuantity"
ControlToValidate="txtQuantity"
Display"Dynamic"
Font-Name="Verdana"
Font-Bold="True"
Font-Size="10pt"
runat=server>
В поле Количество следует ввести число!
</asp:RequiredFieldValidator>

<asp:RangeValidator
id="rngQuantity"
ControlToValidate="txtQuantity"
Type="Integer"
MinimumValue=l
MaximumValue=30
Display="Dynamic"
Font-Name=" Verdana"
Font-Bold="True"
Font-Size="10pt"
runat="server">
В поле Количество можно вводить лишь целое число от 1 до 30!
</asp:RangeValidator>

<asp:button
id="butOK"
text=" OK "
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
If Len(Request.QueryString("ProductID")) = 0 Then
Response.Redirect{"./index.aspx")
End If
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC15;"
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select ProductName, LongDescription, " _
& "PathToIcon, PathToFull, Price, CategoryName " _
& "From Products Left Join ProductCategories On " _
& "Products.ProductCategorylD = " _
& "ProductCategories.ProductCategorylD Where " _
& "ProductID = " & Request.QueryString("ProductID") _
, DBConn)
DBCommand.Fill(DSPageData, _
"ProductData")
IblTitle.Text = "<CENTER>"
& DSPageData.Tables("ProductData"). _
Rows'(0).Item("ProductName") & "</CENTER>"
IblCategoryName.Text = "Категория: " _
& DSPageData.Tables("ProductData"). _
Rows(O).Item("CategoryName")
hypIcon.ImageUrl = DSPageData.Tables("ProductData"). _
Rows(O) .Itemf'PathToIcon")
hypIcon.NavigateUrl = DSPageData.Tables("ProductData"). _
Rows(O).Item("PathToFull")
IblLongDescription.Text = DSPageData.Tables("ProductData"). _
Rows(O).Item("LongDescription")
.IblPrice.Text = "Цена: " _
& FormatCurrency(DSPageData.Tables("ProductData") . _
Rows(0).Item("Price"))
End If
End Sub