<%response.buffer=true%> <% ' Form fields Dim strEmail, strSubscriber, strArticleBody ' CDONTS required variables Dim mailFrom, mailTo, mailSubject, mailBody ' Set Form variables strSubscriber = request.form("txtSubscriber") response.write "Subscriber:" & strSubscriber & "
" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & " " HTML = HTML & " " HTML = HTML & " " HTML = HTML & "

New subscriber: "& strSubscriber &"

" HTML = HTML & "" HTML = HTML & "" ' Set CDONTS variables mailFrom = "samir@vocfm.com" mailTo = "mzk@mweb.co.za, munadia@vocfm.com, samir@rynq.com" mailSubject = "New vocfm.com newsletter subscriber" mailBody = HTML 'Use this way to send email On Error Resume Next Dim conf Set conf = server.CreateObject("CDO.Configuration") conf.Fields.Item(cdoSendUsingMethod) = 2 conf.Fields.Item(cdoSMTPServer) = "196.22.194.32" conf.Fields.Update Dim objArticleMail Set objArticleMail = server.CreateObject("CDO.Message") objArticleMail.Configuration = conf objArticleMail.From = mailFrom objArticleMail.To = mailTo objArticleMail.HTMLBody = mailBody objArticleMail.Subject = mailSubject objArticleMail.Send Set objArticleMail = Nothing Response.Redirect("http://www.vocfm.com") Response.write Err.Description Response.write "Email sent..." %>