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

<asp:Panel
id="pnlReturn"
runat="server"
/>

<asp:dropdownlist
id="ddlBooks"
runat=server
DataTextField="BookTitle"
DataValueField="LibBookID">
</asp:dropdownlist>

<asp:button
id="butRetun"
text="Boврaт книги"
Type="Submit"
OnClick="Return_Click"
runat="server"
/>

<asp:HyperLink
id="hypManagersMenu"
runat="server"
Text="Meню> библиотекаря"
NavigateUrl="./man_menu.aspx"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Session("LibUserlD")) = 0 Then
Response.Redirect("./index.aspx")
End If
If Session("UserType") = "Библиотекарь" Then
hypManagersMenu.Visible = True
Else
hypManagersMenu.Visible = False
End If
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;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand - New OleDbDataAdapter _
("select LibBookCategorylD, CategoryName " _
& "from LibCategories Order By CategoryName" _
, DBConn)
DBCommand.Fill(DSPageData, _
"Categories")
ddlCategory.DataSource = _
DSPageData.Tables("Categories").Defaultview
ddlCategory.DataBind()
DBCommand = New OleDbDataAdapter _
("select LibBookID, BookTitle " _
& "from LibBooks Where " _
& "CheckedOutTo = " & Session("LibUserlD") _
& " Order By BookTitle", DBConn)
DBCommand.Fill(DSPageData, _
"Books")
If DSPageData.Tables("Books").Rows.Count > 0 Then
ddlBooks.DataSource = _
DSPageData.Tables("Books").Defaultview
ddlBOoks.DataBind()
Else
pnlReturn.Visible = False
End If
End If
End Sub

If Len(Session("LibUserlD")) - 0 Then

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

If Session("UserType") - "Библиотекарь" Then

hypManagersMenu.Visible = True

hypManagersMenu.Visible = False