<% 'Criando as variáveis ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' strNome1 = Trim(Request.Form("Nome1")) strEmail1 = Trim(Request.Form("Email1")) strNomeAmigo = Trim(Request.Form("NomeAmigo")) strEmailAmigo = Request.Form("EmailAmigo") strEmailTecnico = Request.Form("EmailTecnico") strCidade = Trim(Request.Form("Cidade")) strUF = Trim(Request.Form("UF")) ' Enviando e-mail para o amigo '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' strMsgObrigado = strMsgObrigado & "Olá, &strNomeAmigo&.
" strMsgObrigado = strMsgObrigado & "Visite o site WWW.SEUSITE.COM.BR e gostei muito. Achei que você também poderia se interessar pelo conteúdo!
" strMsgObrigado = strMsgObrigado & "Valeu.
" strMsgObrigado = strMsgObrigado & "Seu amigo &strNome1&

" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "DIGITE AQUI O SMTP DO SERVIDOR" JMail.Sender = strEmail1 JMail.SenderName = strNome1 JMail.Subject = "Visite o site WWW.SEUSITE.COM.BR" JMail.AddRecipient strEmailAmigo JMail.ContentType = "text/html" JMail.body = strMsgObrigado JMail.Execute set JMail = nothing ' Mensagem padrão de seu site agradecendo a indicação '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' strMsgObrigado = strMsgObrigado & "Olá, &strNome1&.
" strMsgObrigado = strMsgObrigado & "Obrigado por ter sugerido nosso site ao seu amigo &strNomeAmigo&.
" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "DIGITE AQUI O SMTP DO SERVIDOR" JMail.Sender = "SEUEMAIL@XXXXXX.COM.BR" JMail.SenderName = "Nome de seu Site" JMail.Subject = "Obrigado por indicar WWW.SEUSITE.COM.BR" JMail.AddRecipient strEmail1 JMail.ContentType = "text/html" JMail.body = strMsgObrigado JMail.Execute set JMail = nothing %>