Imports System.Data

Imports System.DBNull

Partial Class about

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim dv As DataView

Dim id_tovar, kol, cena, stoim As Integer

Dim comment As String

dv = CType(SqlDataSource1.Select(DataSourceSelectArguments.Empty), DataView) 'результат запроса

id_tovar = CType(dv.Table(0)(0), Integer)

comment = CType(dv.Table(0)(1), String)

cena = CType(dv.Table(0)(2), Integer)

kol = CType(dv.Table(0)(3), Integer)

Label7.Text = comment.ToString

Label8.Text = "Описания нет"

Label9.Text = cena.ToString

stoim = cena * 1

Label10.Text = stoim.ToString

Button2.Text = "Стоимость"

End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim dk As DataView

Dim idzak, wt, sum As Integer

dk = CType(SqlDataSource3.Select(DataSourceSelectArguments.Empty), DataView)

If dk.Count = 1 Then

idzak = CType(dk.Table(0)(0), Integer)

Session.Add("idzak", idzak)

wt = CType(dk.Table(0)(3), Integer)

sum = CType(TextBox1.Text, Integer) + wt

Session.Add("wt", sum)

SqlDataSource3.Delete() '

Else

Session.Add("wt", TextBox1.Text)

End If

SqlDataSource2.Insert()

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

End Sub

Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim cena, kol, stoim As Integer

If TextBox1.Text = "" Then

MsgBox("Введите количество товара", MsgBoxStyle.Information, "Внимание!")

Else

cena = CType(Label9.Text, Integer)

kol = CType(TextBox1.Text, Integer)

stoim = cena * kol

Label10.Text = stoim.ToString

Button2.Text = "В корзину"

End If

End Sub

End Class