IblMessage.Text = "Добро пожаловать на аукцион!<BR>" _
& "Для участия в торгах " __
& "необходимо зарегистрироваться."

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSSignln as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC16;"
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select BidderlD from "
& "Bidders Where " _
& "BidderName = '" & txtBidderName.Text _
& "' and Password = '" & txtPassword.Text _
& "'", DBConn)
DBCommand.Fill(DSSignln, _
"Bidderlnfo")
If DSSignln.Tables("Bidderlnfо"). _
Rows.Count = 0 Then
IblMessage.Text = "Имя и пароль " _
& "не найдены. Введите их еще раз."
Else
Session("BidderlD") = DSSignin.Tables("Bidderlnfo"). _
Rows(O).Item{"BidderlD")
Response.Redirect("./auction_list.aspx")
End If
End Sub

DBCommand= New OleDbDataAdapter _.
("Select BidderlD from "
& "Bidders Where " _
& "BidderName = '" & txtBidderName.Text _
& "' and Password = '" & txtPassword.Text _
& "'", DBConn)

DBCommand.Fill(DSSignln, _
"Bidderlnfo")

If DSSignln.Tables("Bidderlnfo").
Rows.Count = 0 Then

IblMessage.Text = "Имя и пароль " _
& "не найдены. Введите еще раз."

Session("BidderID") = DSSignin.Tables("Bidderlnfo"). _
Rows(0).Item("BidderlD")

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

Страница Новый участник

На странице Новый участник посетителю Web-узла предоставляется возможность стать участником аукциона. Для этого ему необходимо ввести данные о себе. В теле страницы определяется элемент управления Label, в котором содержится название страницы:

<asp;Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Arial"
Text="<CENTER>Новый участник</CENTER>"
runat="server"
/>

<asp:Label
id="lblMessage"
Font-Bold="True"
runat="server"
Тех1="3аполните все поля для регистрации."
/>