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

DBCommand = New OleDbDataAdapter _
("select ContactEmailAddress " _
& "from IRDepartments Where DepartmentID = " _
& ddlDepartments.Selectedltem.Value _
, DBConn)
DBCommand.Fill(DSPageData, _
"Contact")

TheMessage = "Получен новый отчет о происшествии. " _
& "Щелкните на ссылке для его прочтения." & chr(13) & chr(13) _
& "http://localhost/INetBook/C5/IR/SQL/ir_man.aspx" _
. & "7IRID=" & DSPageData.Tables("NewlD").
Rows(0).Item("ThelD")

TheMailMessage.From = "webmasterSa.com"

TheMailMessage.То = DSPageData.Tables("Contact"). _
Rows(O).ItemC'ContactEmailAddress")

TheMailMessage.Subject = "Новый отчет о происшествии"

TheMailMessage.Body = TheMessage

SmtpMail.Send(TheMailMessage)

IblMessage.Text - "Сформированный отчет о происшествии отправлен"

pnlForm.Visible = False

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

<asp:Label
io="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text=''Отчет о происшествии"
runat="server"
/>

<asp:Label
io="lblMessage"
Font-Size="'10pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
/>

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

<ASР: DropDownList
id="ddlStatus"
runat=server>
<asp:ListItem Уа1ие="Орёп">Находится в paccмотpeнии</asp:ListItem>
<asp:ListItem Value="Closed">3aкрыто</asp:ListItem>
</ASP:DropDownList>

<asp:button
id="butAdd"
text="Добавить"
Type="Submit"
OnClick="Add_Click"
runat="server"
/>