<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: envia_email_indicacao.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 29/08/07
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-
%>
<%
'Caso a página corrente não seja o carrinho de compras é feito a checagem de caracteres.
If page <> "carrinho" Then
'Verifica a existência de caracteres inválidos inclui neste caso palavras como UPDATE/DELETE/SELECT/ETC...
Call Valida_Request()
Else
'Verifica a existência de caracteres inválidos, apenas caracteres.
Call Valida_RequestCarrinho()
End if
'Carrega a configuração dos caminhos a serem usuados na Loja
Call identifica_caminhos()
If request("lang") <> "" Then
Session("requestIdioma") = request("lang")
varLang = Session("requestIdioma")
End If
'Caso exista um cookie de algum pedido anterior o id_transacao será recriado a partir dele.
If session("id_transacao") = "" And Request.Cookies(Application("NomeLoja"))("id_transacao") <> "" Then
session("id_transacao") = Request.Cookies(Application("NomeLoja"))("id_transacao")
session("user_id") = Request.Cookies(Application("NomeLoja"))("user_id")
End if
'Se existir a id_transacao o idioma de exibição será capturado do arquivo do pedido
If session("id_transacao") <> "" Then
If VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then
varLangUser = pegaValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","idioma")
session("varLangUser") = varLangUser
Else
session("id_transacao") = ""
session("varLangUser") = ""
End If
End If
If varLangUser <> "" Then
varLang = varLangUser
Else
varLang = Application("varLang")
End if
varSkin = "default"
'Assume a string dos idiomas configurados
checkIdioma = Application("idiomasconfigurados")
veIdiomas = Split(checkIdioma, ",")
%>
<%
'Abre conexão com o Banco de dados
Call abre_conexao(conexao)
'Carrega as applications com os textos configuráveis
Server.execute("config/templates/"&varLang&"/textos_lang.asp")
%>
<%=Application("nomeloja")%>
<%
'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
%>