<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Freeware from Seiretto.com ' available at http://asp.thedemosite.co.uk ' ' DON'T forget to change the mail_to email address below!!! ' and thats all you need to change. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim error error = 0 For Each f In Request.Form If Request.Form(f) = "" Then error = 2 End If Next If error=1 Then response.redirect "error.html" Else Dim f, emsg, mail_to, r, o, c, other mail_to = "newsletter@mailcruiseclubuk.com;newsletterbk@mailcruiseclubuk.com" fline = " "& vbNewLine hline = vbNewLine & " "& vbNewLine emsg = "" For Each f In Request.Form If mid(f,1,1)<>"S" = True Then 'do not save if input name starts with S emsg = emsg & f & " = " & Trim(Request.Form(f)) & hline End If Next Set objNewMail = Server.CreateObject("CDONTS.NewMail") objNewMail.From = "newsletter@mailcruiseclubuk.com" objNewMail.Subject = "ccuk subscribe" objNewMail.To = mail_to objNewMail.Body = emsg & fline objNewMail.Send Set objNewMail = Nothing response.redirect "add_email_thank_you.asp" End if %>