<% Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") 'these are the variables FromVar = Request.Form("Email") FromName = Request.Form("Name") ToVar = Request.Form("recipient") SubjectVar = Request.Form("subject") Address=Request.Form("Address") City=Request.Form("City") State=Request.Form("State") Zip=Request.Form("Zip") Phone=Request.Form("Phone") Comments=Request.Form("Comments") BodyVar = "Name: "&FromName& vbCrLf BodyVar = BodyVar&"Email: "&FromVar& vbCrLf BodyVar = BodyVar&"Address: "&Address& vbCrLf BodyVar = BodyVar&"City: "&City& vbCrLf BodyVar = BodyVar&"State: "&State& vbCrLf BodyVar = BodyVar&"Zip: "&Zip& vbCrLf BodyVar = BodyVar&"Phone: "&Phone& vbCrLf BodyVar = BodyVar&"Comments: "&Comments& vbCrLf 'from to etc objMail.From = FromVar objMail.Subject = SubjectVar objMail.To = ToVar objMail.Body = BodyVar objMail.Send set objMail = nothing %>