<% 'Get all the form data entered by the user 'mail = request.form("email") mail="ernest_ho_68@yahoo.com" fname = "my first name" 'request.form("first") lname = "my last name" '''& 'request.form("last") reply = "saleshk@chartrick.com" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = reply objMail.Subject = "Sending Form Data in CDONTS from ASPadvice" objMail.To = mail 'This is the mail body. vbCrLf puts in a new line. (like
) objMail.Body = fname & " " & lname & " " & mail & vbcrlf& vbcrlf&_ "This information was submitted " & vbcrlf&_ "from a form" objMail.Send set objMail = nothing response.write("Message was sent successfully") %>