<% 'Verifica se houve POST if Request.TotalBytes > 0 then 'Declara variaveis dim strNome, strEmail, strEmailsAmigos, arrEmailsAmigos, regEx, fromEhValido, msgErro formEhValido = true msgErro = "" 'Recupera dados do formulario. strNome = Replace(Replace(Replace(Replace(Trim(Request.Form("textNome")),"'",""),"=",""),">",""),"<","") strEmail = Replace(Replace(Replace(Replace(Trim(Request.Form("textEmail")),"'",""),"=",""),">",""),"<","") strEmailsAmigos = Replace(Replace(Replace(Replace(Trim(Request.Form("textEmailAmigos")),"'",""),"=",""),">",""),"<","") strComentarios = Replace(Replace(Replace(Replace(Trim(Request.Form("textComentarios")),"'",""),"=",""),">",""),"<","") 'Verifica se algum campo veio vazio. Se sim, invalida formulario. if strNome = "" then formEhValido = false msgErro = msgErro & "O campo SEU NOME é obrigatório.
" end if if strEmail = "" then formEhValido = false msgErro = msgErro & "O campo SEU E-MAIL é obrigatório.
" end if if strEmailsAmigos = "" then formEhValido = false msgErro = msgErro & "O campo EMAIL(s) DO(s) SEU(s) AMIGO(s) é obrigatório.
" end if if strComentarios = "" then formEhValido = false msgErro = msgErro & "O campo COMENTÁRIOS é obrigatório.
" end if 'Verifica se o e-mail eh valido. Se nao, invalida formulario. Set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z0-9]+([\._]?[a-zA-Z0-9]+)*@[a-zA-Z0-9]+([\.-]?[a-zA-Z]+)?(\.[a-zA-Z]{2,3})+$" if not(regEx.Test(strEmail)) then formEhValido = false msgErro = msgErro & "Informe um E-MAIL válido no campo SEU E-MAIL
" end if arrEmailsAmigos = split(strEmailsAmigos,",") for i=0 to ubound(arrEmailsAmigos) if not(regEx.Test(arrEmailsAmigos(i))) then formEhValido = false msgErro = msgErro & "Informe apenas E-MAILS válidos no campo E-MAIL(s) DO(s) SEU(s) AMIGO(s)
" exit for end if next if formEhValido then %><% dim erroAoEnviar erroAoEnviar = false for i=0 to ubound(arrEmailsAmigos) 'Inicia rotina de envio de e-mail (CDOSYS) On Error Resume Next 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPHost 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 if servidorSMTPRequerAutenticacao then objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSMTPUser objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSMTPPwd end if objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = strNome & "<"&strSMTPUser&">" 'e-mail do destinatário objCDOSYSMail.To = arrEmailsAmigos(i) 'assunto da mensagem objCDOSYSMail.Subject = "NATAL CASE 2009 - Indicação de amigo" 'conteúdo da mensagem 'objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 'para envio da mensagem no formato html altere o TextBody para HtmlBody strMensagem = "" strMensagem = strMensagem &"" strMensagem = strMensagem &"
" strMensagem = strMensagem &"" strMensagem = strMensagem &"Olá,

"& Server.HTMLEncode(strNome) &" quer que você também tenha um presente diferente no Natal deste ano. Junto com a Case Construction, vamos ajudar quem mais precisa de ajuda.

Veja a mensagem que "& Server.HTMLEncode(strNome) &" mandou para você sobre o Natal Especial Case:

""& Server.HTMLEncode(strComentarios) &""

Clique aqui acesse o hotsite do Natal Especial Case e participe.

Case CE América Latina" strMensagem = strMensagem &"
" 'Response.Write(strMensagem) objCDOSYSMail.HtmlBody = strMensagem 'objCDOSYSMail.fields.update 'envia o e-mail objCDOSYSMail.Send 'Verifica se houve erro if Err.Number <> 0 then erroAoEnviar = true if i=0 then msgErro = arrEmailsAmigos(i) &""& Err.Number &" - "& Err.Description &"" else msgErro = msgErro &", "&arrEmailsAmigos(i) &""& Err.Number &" - "& Err.Description &"" end if end If 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing next if erroAoEnviar then Response.Write("Houve ERRO ao disparar e-mail para: "& msgErro) Response.Write("") else Response.Write("") end if else Response.Write(msgErro) Response.Write("") end if end if %>