<% 
For Each x In Request.Form 
message = message & x & ": " & Request.Form(x) & CHR(10) 
Next 
set smtp=Server.CreateObject("Bamboo.SMTP") 
smtp.Server="localhost" 
smtp.Rcpt="m.padding@gmail.com" 
smtp.From="lotte.padding@gmail.com" 
smtp.FromName="request.form("naam")" 
smtp.Subject="Response to my form" 
smtp.Message = message 
on error resume next 
smtp.Send 
 if err then 
response.Write err.Description 
else 
Response.redirect ("http://www.sylviastotalcare.nl/index_test.html") 
end if 
set smtp = Nothing 
%>