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

<asp:RequiredFieldValidator
id="rfvPhoneNumber"
ControlToValidate="txtPhoneNumber"
Display="Dynamic"
Font-Size="10pt"
runat=server>
Необходимо ввести номер телефона!
</aspiRequiredFieldValidator>

<asp:TextBox
id="txtEmailAddress"
Columns="25"
MaxLength="50"
runat=server
/>
<asp:RequiredFieldValidator id="rfvEmailAddress"
ControlToValidate="txtEmailAddress"
Display="Dynamic"
Font-Size="10pt"
runat-server>
Необходимо ввести адрес электронной почты!
</asp:RequiredFieldValidator>

<asp:button
id="butOK"
text="Зарезервировать"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>

В результате выполнения щелчка на кнопке активизируется процедура SubmitBtn_Click.

<asp:Panel
id="pnlReservationResponse"
runat="server"
Font-Size="12pt"
Font-Name="verdana"
BackColor="ivory"
Width="90%"
BorderWidth="3px"
BorderStyle=7
HorizontalAlign="Left"
/>

<asp:Label
id="lblReeult"
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 DSRoomData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC10;"
& "User Id=sa;" _
& "Password=yourpassword; ")
DBCommand = New OleDbDataAdapter _
("Select RoomID, RoomName " _
& "From Rooms " _
& "Order By RoomName",DBConn)
DBCommand.Fill(DSRoomData, _
"Rooms")
ddlRoomIDipataSource'- _
DSRoomData.Tables("Rooms").DefaultView
ddlRoomID.DataBind()
pnlMakeReservation.Visible = True
pnlReservatjonResponse.Visible = False
End If
End Sub

DBCommand = New OleDbDataAdapter _
("Select RoomID, RoomName " _
& "From Rooms " _
& "Order By RoomName",DBConn)

DBCommand.Fill(QSRoomData, _
"Rooms")