<% %> <% 'Chama id do produto produto = request.querystring("produto") Set dados = abredb.Execute("SELECT email,nome FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';") if dados.EOF then nomez = "" else nomez = Cripto(dados("nome"),false) end if dados.Close set dados = Nothing %> <% if request.querystring("acao") = "abre" then%>

Nome do seu amigo:
E-mail do seu amigo:
Seu nome:
Sua mensagem (opcional):
>

<% end if if request.querystring("acao") = "cadastra" then 'Chama o id do produto produto = request.form("produto") Set rsProdInfo = abredb.Execute("SELECT * FROM produtos where idprod="&produto&";") prodnome = rsProdInfo("nome") amigo = request.form("nomeamigo") emaila = request.form("emailamigo") nome = request.form("nome") msgn = request.form("msgnome") rsProdInfo.close set rsProdInfo = nothing if amigo = "" then %>

>

Digite corretamente o nome do amigo que esta oferta será enviada!


:: Voltar ::

>

:: Fechar esta Janela :: <% response.end end if 'Valida o e-mail if emaila = "" OR instr(emaila, "@") = 0 Or instr(emaila, ".") = 0 then%>

>

Digite corretamente o email do amigo que esta oferta será enviada!


:: Voltar ::

>

:: Fechar esta Janela :: <% response.end end if if nome = "" then%>

>

Digite corretamente o seu nome para que esta oferta seja enviada!


:: Voltar ::

>

:: Fechar esta Janela :: <% response.end end if 'Corpo do e-mail strMensagem = "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "

" strMensagem = strMensagem & " "&tituloloja&" "&endereco11&" - "&bairro11&" "&cidade11&"/"&estado11&" - "&pais11&" - "&emailloja&"

" strMensagem = strMensagem & " " strMensagem = strMensagem & "

Olá "&amigo&"," strMensagem = strMensagem & " Seu amigo "&nome&" visitou a loja "&nomeloja&" e lhe recomendou a seguinte oferta: " strMensagem = strMensagem & " » "&prodnome&"" if msgn <> "" then strMensagem = strMensagem & " Mensagem que o seu amigo escreveu para você: " strMensagem = strMensagem & "      "&msgn&"." end if strMensagem = strMensagem & " Para visualizar a oferta visite o link abaixo:" strMensagem = strMensagem & " "&_ "Visualizar sua oferta!" strMensagem = strMensagem & " " strMensagem = strMensagem & "

Equipe " strMensagem = strMensagem & " "&nomeloja&" "&urlloja&" "&emailloja&"

" 'Envia o e-mail %> <%EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), emailloja, amigo, emaila, "Veja essa oferta!", strMensagem%>

>

A oferta foi enviada com sucesso... de: <%=nome%> para: <%=amigo%> no e-mail: <%=emaila%> Agradecemos por indicar os produtos da <%=nomeloja%>!

>

:: Fechar esta Janela ::

<% else end if 'Fecha o banco de dados abredb.close set abredb = nothing%>