<% Response.Buffer=true on Error Resume Next dim oMail,str,sbody,sSubject,svar sbody="" for i=1 to Request.Form.count sbody=sbody&"
"& Request.Form.Key(i) &" : "& Request.Form.item(i) 'Response.Write Request.Form.Key(i) & "****" & Request.Form.item(i) & "
" next set oMail = Server.CreateObject ("CDONTS.NewMail") oMail.MailFormat=0 oMail.BodyFormat=0 oMail.From = Trim(Request("email")) oMail.To = "hrd@seniorbuildersltd.com" oMail.Importance = 1 oMail.Subject = "Enquiry form submitted At seniorbuildersltd.com" oMail.Body = sbody oMail.Send() set oMail=Nothing If Err<> 0 then 'Response.Write "error is there" 'http://www.seniorbuilders.com 'Response.Redirect ("http://www.seniorbuildersltd.com/thanks.htm?err=Error") Response.Redirect "http://www.seniorbuildersltd.com/thanks.htm" else 'Response.Write "mail is gone" 'Response.Redirect ("http://www.seniorbuilders.com/thanks.htm") Response.Redirect "http://www.seniorbuildersltd.com/thanks.htm" End if %>