ARENA PETROBRAS

<% '****************************************************************************************** ' SendMail ' Funēćo que envia um email para um destinat“rio '****************************************************************************************** Function SendMail(AFrom, ATo, ASubject, ABody ) Set MAIL = Server.CreateObject("CDONTS.NEWMAIL") MAIL.From = AFrom MAIL.Subject = ASubject MAIL.To = ATo MAIL.Importance = 2 MAIL.BodyFormat = 0 ' 0 HTML MAIL.MailFormat = 0 ' 0 HTML MAIL.Body = ABody MAIL.Send Set MAIL = Nothing End Function if(Request("submit")<>"") then para= "joao.vitor@sportlink.info; bruno@sportlink.info" ' Select case Request("CLUBE") ' Case "pbf" ' para="joao.vitor@sportlink.info; bruno@bc.locaweb.com.br" ' Case "bota" ' para="jefferson@bfr.com.br" ' Case "fla" ' para="marcusduarte@fladata.com.br" ' end select mensagem = "

Nome:	XXXnomeXXX
Email:	XXXemailXXX
Assunto:	XXXassuntoXXX
Empresa:	XXXempresaXXX
Cargo:	XXXcargoXXX
Mensagem:	XXXmensagemXXX

" mensagem = Replace(mensagem , "XXXnomeXXX" , Request("NOME")) mensagem = Replace(mensagem , "XXXemailXXX" , Request("E-MAIL")) mensagem = Replace(mensagem , "XXXassuntoXXX" , Request("ASSUNTO")) mensagem = Replace(mensagem , "XXXempresaXXX" , Request("EMPRESA")) mensagem = Replace(mensagem , "XXXcargoXXX" , Request("CARGO")) mensagem = Replace(mensagem , "XXXmensagemXXX" , Request("MENSAGEM")) x=SendMail("site@arenapetrobras.locaweb.com.br", para, Request("ASSUNTO"), mensagem) end if %> ARENA PETROBRAS