Src As Object, Args As

Sub Submit_Form ( Src As Object, Args As EventArgs)

If Email.Text <> "" Then

Dim MyEmail = New MailMessage

MyEmail.From = "dadams@mail.maconstate.edu"

MyEmail.To = Email.Text

MyEmail.Subject = "Form Submission"

MyEmail.Body = "

Membership Form

"

MyEmail.Body &= "First Name = " & FirstName.Text & "
"

MyEmail.Body &= "Last Name = " & LastName.Text & "
"

If Gender1.Checked Then

MyEmail.Body &= "Gender = " & Gender1.Text & "
"

ElseIf Gender2.Checked Then

MyEmail.Body &= "Gender = " & Gender2.Text & "
"

Else

MyEmail.Body &= "Gender = Not checked

"

End If

MyEmail.Body &= "Major = " & Major.SelectedItem.Text & "
"

MyEmail.Body &= "Reason = " & Reason.Text & "
"

MyEmail.BodyFormat = MailFormat.Html

SmtpMail.Send(MyEmail)

Message.Text = "Form posted. Check your email."

Else

Message.Text = "Missing email address. Not posted."

End If

End Sub


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---