Проект Библиотека
Проект Отчет о происшествии

asp:dropdownllst
id="ddlDepartments"
runat=server
DataTextField="DepartmentName"
DataValueField="DepartmentID">
</asp:dropdownlist>

<asp:TextBox
id="txtLocation"
Columns="50"
Rows="3"
MaxLength="255"
runat=server
TextMode="MultiLine"
/>

<asp:TextBox
id="txtDescription"
Columns="50"
Rows="3"
MaxLength="255"
runat=server
TextMode="MultiLine"
/>

<asp:TextBox
id="txtImpact"
Columns="50"
Rows="З"
MaxLength="255"
runat=server
TextMode="MultiLine"
/>

<asp:TextBox
id="txtPrevention"
Columns="50"
Rows="3'' ,
MaxLength="255"
runat=server
TextMode="MultiLine"
/>

<asp:button
id="butAdd"
text="ДоОавить "
Type="Submit"
OnClick="Add_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
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETCS;" _
& "UseV Id=sa;"
& "Password-yourpassword;")
DBCommand = New OleDbDataAdapter _
("select DepartmentID, DepartmentName " _
& "from IRDepartments Order By DepartmentName" _
, DBConn)
DBCommand.Fill(DSPageData, _
"Departments")
ddlDepartments.DataSource - _
DSPageData.Tables("Departments").Defaultview
ddlDepartments.DataBind()
End If
End Sub

If Not IsPostBack Then