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

Далее следуют пять элементов TextBox, в которых вводятся имена и электронные адреса отправителя и получателя, а также текст поздравления.

<asp:button
id="butSendCard"
text="OTnpaBMTb открытку"
Type="Submit"
OnClick="SubmitSendCard_Cliok"
runat="server"
/>

Sub SubmitSendCard_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCommand
Dim DBCommand As OleDbDataAdapter
Dim DSNewID as New DataSet
Dim TempCardNumber as Integer
Dim TheMessage as String
Dim TheMailMessage as New MailMessage
If rdoCardl.Checked Then
TempCardNumber - 1
Else
TempCardNumber - 2
End If
DBConn = New OleDbConnection("Provider-sqloledb;" _ .
& "server=localhost;" _
& "Initial Catalog=INETC14;" _
& "User Id=sa;" _
& "Password=yourpassword;")
DBInsert.CommandText = "Insert Into Birthdays " _
& "(CardNumber, SendersName, SendersEmail, " _
& "RecipientsName, RecipientsEmail, TheMessage) " _
& "values (" _
& TempCardNumber & ", " _,
& "'" & Replace(txtSendersName.Text, "'", "''") & "', "
& "'" & Replace(txtSendersEmail.Text, "'", "''") & '", " _
& "'" & Replace(txtRecipientsName.Text, "'", "''") & "', " _
& "'" & Replace(txtRecipientsEmail.Text, "'", "''") & "', " _
& "'" & Replace(txtTheMessage.Text, "'", "''") & "')"
DBInsert.Connection = DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQueryO
DBCommand = New OleDbDataAdapter _
("Select Max(BirthdaylD) as ThelD from Birthdays"
, DBConn)
DBCommand.Fill(DSNewID, _
"ThelD")
TheMessage = "Вам пришла поздравительная открытка! " _
& "Для ее просмотра щелкните на ссылке: " _
& "http://localhost/INetBook/cl4/"
& "birthdaycard/sql/view_card.aspx?BirthdayID=" _
& DSNewID.Tables("ThelD").Rows(O).Item("TheID")
TheMailMessage.From = txtSendereEmail.Text
TheMailMessage.To = txtRecipientsEmail.Text
TheMailMessage.Subject = "Поздравительная открытка!!!"
TheMailMessage.Body = TheMessage
SmtpMail.Send(TheMailMessage)
pnlMakeCard.Visible = False
IblMessagel.Text = "Ваша открытка отправлена."
End Sub

Номер открытки, выбранной пользователем, сохраняется в переменной TempCardNumber, а переменная TheMessage предназначена для хранения текста электронного сообщения.

If rdoCardl.Checked Then

TempCardNumber - 1

TempCardNumber = 2

DBInsert.CommandText = "Insert Into Birthdays " _
& "(CardNumber, SendersName, SendersEmail, " _
& "RecipientsName, RecipientsEmail, TheMessage) " _
& "values (" _
& TempCardNumber & ", " _
& "'" & Replace (txtSendersName. Text, "'", "''") & "', " _
& "'" & Replace(txtSendersEmail.Text, "'", "''") & "', " _
& "'" & Replace(txtRecipientsName.Text, "'", "''") & "', " _
& "'" & Replace (txtRecipientsEmail. Text, "'", "''") & "', " _
& "'" & Replace (txtTheMessage. Text, "'","'"')&"')"