Imports System.Data.SqlClient Imports System.Data Imports System.Net.Mail Partial Class contact Inherits System.Web.UI.Page Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click Dim body body = body & "" body = body & "" body = body & "" body = body & "Contact" body = body & "" body = body & "" body = body & "" body = body & "" body = body & "" body = body & "" body = body & "" body = body & "
" body = body & "
" body = body & "Contact Ricerca Web

" body = body & "Full Name = " & TextBox3.Text & "
" body = body & "Email = " & TextBox4.Text & "
" body = body & "Subject = " & TextBox5.Text & "
" body = body & "Message = " & TextBox6.Text & "
" body = body & "
" body = body & "
" body = body & "
" body = body & "" body = body & "" body = body & "" body = body & "
" body = body & "
" body = body & "" body = body & "" Dim client As New SmtpClient("relay-hosting.secureserver.net") Dim message As New MailMessage() Dim mil mil = New MailAddress("website.email@ricerca.com") message.To.Add("nicole.daugherty@olonricerca.com") 'message.To.Add("bob.martin@ricerca.com") message.From = mil message.Subject = "Olon Ricerca Bioscience Contact" message.Body = body message.IsBodyHtml = True client.Send(message) Response.Redirect("thank_you.aspx") End Sub End Class