<% for i=1 to 7 message=message + ""&Request("field_"&i&"_descr")&"   "&Request("field_"&i)&"
" next message=message + Request("message") smtpServer = "www.gallerytwenty-one.com" smtpPort = 25 name = Request("your_name") Set myMail = CreateObject("CDO.Message") myMail.Subject = "from " & name myMail.From = Request("adelarubio@adelarubio.com") myMail.To = Request("recipient") myMail.HTMLBody = "
" & message & "" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort myMail.Configuration.Fields.Update myMail.Send %>