<% for i=1 to 7 message=Request("message") next message=message + Request("message") smtpServer = "enter your SMTP SERVER HERE" smtpPort = 25 name = Request("Your_Name:") Set myMail = CreateObject("CDO.Message") myMail.Subject = "from " & name myMail.From = Request("Your_Email:") 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 %>