<%
'Captura dos dados do formulário
Comentario = Request.form("comentario")
Nome_AmigoIndicador = Request.form("Nome_AmigoIndicador")
Nome_AmigoIndicado = Request.form("Nome_AmigoIndicado")
Email_AmigoIndicador = Request.form("Email_AmigoIndicador")
Email_AmigoIndicado = Request.form("Email_AmigoIndicado")
Titulo = Nome_AmigoIndicador & Application("IndTxtTitIndicacao")
' Verifica se o tipo de indicação é de produto
If Request("tipo") = "produto" Then
'Monta a mensagem a ser enviada
URLproduto = Application("URLloja") & "/produtos_descricao.asp?codigo_produto=" & Request("codigo_produto")
tipoMail = "mail_indicacao_produto"
arrayInfo = "<\$nomeINDICADO\$>#LW#"& Nome_AmigoIndicado &"|LW|<\$nomeINDICADOR\$>#LW#" & Nome_AmigoIndicador &"|LW|<\$NOMELOJA\$>#LW#" & Application("nomeloja") &"|LW|<\$URLproduto\$>#LW#" & URLproduto &"|LW|<\$COMENTARIO\$>#LW#" & Comentario
' Verifica se o tipo de indicação é para a loja
ElseIf Request("tipo") = "site" Then
'Monta a mensagem a ser enviada
tipoMail = "mail_indicacao_site"
arrayInfo = "<\$nomeINDICADO\$>#LW#"& Nome_AmigoIndicado &"|LW|<\$nomeINDICADOR\$>#LW#" & Nome_AmigoIndicador &"|LW|<\$NOMELOJA\$>#LW#" & Application("nomeloja") &"|LW|<\$URLloja\$>#LW#" & Application("URLloja") &"|LW|<\$COMENTARIO\$>#LW#" & Comentario
End If
' Prepara o conteudo do e-mail
corpoMail = prepara_texto_mail(tipoMail, varLang, arrayInfo)
' Verifica se o e-mail será enviado em formato texto ou html
If Application("FormatoMailLoja") = "texto" Then
'chama a função para o envio de e-mail
EnviaMail = funcao_mail(Titulo, Email_AmigoIndicado, corpoMail, 1)
Else
corpoMail = Replace(corpoMail, Chr(13), " ")
'chama a função para o envio de e-mail
EnviaMail = funcao_mail_html(Titulo, Email_AmigoIndicado, corpoMail, 1)
End If
'Checa se o e-mail foi enviado com sucesso
If EnviaMail = 0 Then
%>