<% response.buffer = true Response.Expires = 0 CR = Chr(10) & Chr(13) '# Carriage Return Set objMail = Server.CreateObject("CDONTS.Newmail") objMail.To = "info@frantelholdings.com" objMail.Subject = "Enquiry / Feedback from Frantel Holdings Website" objMail.From = "info@frantelholdings.com" mybody = "" & CR & CR mybody = mybody & "" mybody = mybody & "Enquiry / Feedback from Frantel Holdings Website" & CR mybody = mybody & "" & CR mybody = mybody & "Please respond to this person's request by clicking on the email address below:

" mybody = mybody & "Name: " & Request.form("name") & "
" mybody = mybody & "Tel: " & Request.form("tele") & "
" mybody = mybody & "E-mail: " & Request.Form("email") & "

" mybody = mybody & "Enquiry: " & Request.form("feed") & "

" mybody = mybody & "" objMail.Body = mybody objMail.BodyFormat=0 objMail.MailFormat=0 objMail.Send Set objMail = Nothing 'Response.Write mybody Response.write "" %>