<% ' declare variables Dim EmailFrom Dim EmailTo Dim Subject Dim txtFirstName Dim txtEmail Dim txtComment ' get posted data into variables EmailFrom = Trim(Request.Form("txtEmail")) EmailTo = "john.young@inshoretech.com" Subject = "www.WesselCPA.com -Contact Us" txtFirstName = Trim(Request.Form("txtFirstName")) txtEmail = Trim(Request.Form("txtEmail")) txtComment = Trim(Request.Form("txtComment")) ' prepare email body text Dim Body Body = "www.WesselCPA.com Contact Us Request


Name: " & txtFirstName & "

Return E-mail Address: " & txtEmail & "

Comments: " & txtComment ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.MailFormat = 0 mail.BodyFormat = HTML mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.Body = Body mail.Send Set mail = Nothing ' redirect to success page Response.Redirect("index.htm") %>