<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.salvadorbus.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "indique@salvadorbus.com.br" 'conta@seu_dominio cdoConfig.Fields.Item(sch & "sendpassword") = "indique09" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "indique@salvadorbus.com.br" 'ENDEREÇO DE E-MAIL QUE SERÁ EXIBIDO NO FROM DA MENSAGEM cdoMessage.To = request("email_amigo") 'ex: conta@seu_dominio, conta@uol.com.br, conta@hotmail cdoMessage.Subject = "Seu amigo " & request("seu_nome") & " te indicou o SalvadorBus" cdoMessage.ReplyTo = Request("seu_email") strBody = "Olá " & request("nome_amigo") & "!

" & _ "Seu amigo " & Request("seu_nome")& " te indicou o Salvador Bus.
" & _ "Viaje pelo site, conheça o projeto e volte de Salvador com muita história para contar.

" & _ "www.salvadorbus.com.br
" & _ strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing %>