If Len(Request.QueryString("ProductCategoryID")) = 0 Then

CurrentCategorylD = 1

CurrentCategorylD = Request.QueryStringC'ProductCategorylD")

DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC15;" _
& "User Id=°sa;" _
& "Password=yourpassword;")

DBCommand = New OleDbData^Vdapter _
("Select ProductID, ProductName, BriefDescription, " _
& "Price From Products Where " _
& "ProductCategorylD = " & CurrentCategorylD _
& " Order By ProductName", DBConn)

DBCommand.Fill(DSPageData, _
"Products")

dgProducts.DataSource - _
DSPageData.Tables("Products").DefaultView
dgProducts.DataBind

DBCommand = New OleDbDataAdapter _
("Select ProductCategorylD, CategoryName, " _
& "CategoryDescription From ProductCategories Where " _
& "ParentCategorylD = " & CurrentCategorylD _
& " Order By CategoryName", DBConn)

DBCommand.Fill(DSPageData, _
"Categories")

dgCategories.DataSource = _
DSPageData.Tables("Categories").DefaultView
dgCategories.DataBind

DBCommand = New OleDbDataAdapter _
("Select CategoryName " _
& "From ProductCategories Where " _
& "ProductCategorylD = " & CurrentCategorylD _
, DBConn)
DBCommand.Fill(DSPageData, _
"CategoryName")

IblTitle.Text = "<CENTER>"
& DSPageData.Tables("CategoryName"). _
Rows(0).Item("CategoryName") & "</CENTER>"

Страница Товары

Страница Товары предоставляет полную информацию о товаре. Просмотрев ее, посетитель может поместить данный товар в корзину покупателя.

<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
runat="server"
/>

<asp:HyperLink
id=°"hyplcon"
runat="seryer"
Text="Щелкните для увеличения изображения"
BorderWidth="7px"
BorderStyle=7
/>