Проект Доска объявлений
Проект Поздравительная открытка
Проект Расписание сеансов

Объект Command подключается к базе данных посредством объекта Connection и выполняется SQL-запрос.

DBCommand = New OleDbDataAdapter _
("Select Max(BirthdaylD) as ThelD from Birthdays"
, DBConn)

DBCommand.Fill(DSNewID, _
"ThelD")

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

TheMessage = "Вам пришла поздравительная открытка! " _
& "Для ее просмотра щелкните на ссылке: " _
& "http://localhost/INetBook/c!4/"
& "Mrthdaycard/sql/view_card.aspx?BirthdayID=" _
& DSNewID.Tables("ThelD").Rows(O).Item("ThelD")

TheMailMessage.From = txtSendersEmail.Text

TheMailMessage.To = txtRecipientsEmail.Text

TheMailMessage.Subject = "Поздравительная открытка!!!"

TheMailMessage.Body = TheMessage

SmtpMail.Send(TheMailMessage)

pnlMakeCard.Visible = False

IblMessagel.Text = "Ваша открытка отправлена."

Открытка демонстрируется на странице Просмотр открытки. В теле страницы описываются элементы управления. В элементе TextBox отображается заголовок, содержащий имя адресата:

<asp:Label
id="lblTitle"
BorderWidth="7px"
BorderStyle=7
Width="90%"
Font-Size="25pt','
Font-Name="Comic Sans MS"
runat="server"
/>

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

Он содержит единственный элемент управления — imageButton, используемый для вывода изображения. Щелчок на нем приводит к активизации кода. Как вы сможете убедиться, с помощью кода осуществляется переключение между видимым и невидимым режимами панелей.

<asp:Image
id="imgCard"
runat="server"
BorderWidth="4px"
/>

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Comic Sans MS"
runat="server"
/>