Dim FirstName, Surname, Address, City, StateFrom, Zip, Phone, Ward, Stake, MaleGender, FemaleGender, Gender, Email, Message
FirstName = Request.Form("FirstName")
Surname = Request.Form("Surname")
Address = Request.Form("Address")
City = Request.Form("City")
StateFrom = Request.Form("StateFrom")
Zip = Request.Form("Zip")
Phone = Request.Form("Phone")
Ward = Request.Form("Ward")
Stake = Request.Form("Stake")
MaleGender = Request.Form("MaleGender")
FemaleGender = Request.Form("FemaleGender")
Gender = Request.Form("gender")
Email = Request.Form("Email")
Message = Request.Form("Message")
.....furthur down
With objMessage
.To = "user@to.com"
.From = "user@from.com"
.Subject = "YSA Registration"
.HTMLBody = "Registration Form" & Now() & vbCrLf & "Surname: " & Surname & vbCrLf & "First Name: " & FirstName & vbCrLf & "Address: " & Address & vbCrLf & "City: " & City & vbCrLf & "State: " & StateFrom & vbCrLf & "Zip: " & Zip & vbCrLf & "Phone: " & Phone & vbCrLf & "Ward: " & Ward & vbCrLf & "Stake: " & Stake & vbCrLf & "MaleGender: " & MaleGender & vbCrLf & "FemaleGender: " & FemaleGender & vbCrLf "Gender: " & Gender & vbCrLf & "Email: " & Email & vbCrLf & "Message: "& Message