<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# '# Este programa é um software livre; você pode redistribuí-lo e/ou '# modificá-lo sob os termos do GNU General Public License como '# publicado pela Free Software Foundation. '# É importante lembrar que qualquer alteração feita no programa '# deve ser informada e enviada para os criadores, através de e-mail '# ou da página de onde foi baixado o código. '# '# //------------------------------------------------------------------------------------- '# // LEIA COM ATENÇÃO: O software VirtuaStore OPEN deve conter as frases '# // "bondhost - Hospedagem" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://comunidade.virtuastore.com.br no créditos da '# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das '# // frases não estiver presentes ou visiveis este software deixará de ser '# // considerado Open-source(gratuito) e o uso sem autorização terá '# // penalidades judiciais de acordo com as leis de pirataria de software. '# //-------------------------------------------------------------------------------------- '# '# Este programa é distribuído com a esperança de que lhe seja útil, '# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License '# abaixo (GNU Licença Pública Geral) para mais detalhes. '# '# Você deve receber a cópia da Licença GNU com este programa, '# caso contrário escreva para '# Free Software Foundation, Inc., 59 Temple Place, Suite 330, '# Boston, MA 02111-1307 USA '# '# Para enviar suas dúvidas, sugestões e/ou contratar a VirtuaWorks '# Internet Design entre em contato através do e-mail '# contato@virtuaworks.com.br ou pelo endereço abaixo: '# Rua Venâncio Aires, 1001 - Niterói - Canoas - RS - Brasil. Cep 92110-000. '# '# Para ajuda e suporte acesse um dos sites abaixo: '# http://comunidade.virtuastore.com.br '# http://www.bondhost.com.br '# '# BOM PROVEITO! '# Equipe VirtuaStore '# []'s '# '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### 'INÍCIO DO CÓDIGO 'Este código está otimizado e roda tanto em Windows 2000/NT/XP/ME/98 quanto em servidores UNIX-LINUX com chilli!ASP %> <% 'Requisita os dados para o e-mail if request.querystring("acao") = "ajuda" then strNome = request.form("nome") strEmail = request.form("email") strDuv = request.form("duvida") strAssunto = request.form("assunto") strMsg = request.form("msg") strCCEmail = "" If strNome = "" then response.redirect "ajuda_email.asp?erro=- Por favor preencha o seu nome corretamente!&nome="&strNome&"&email="&strEmail&"&assunto="&strAssunto&"&msg="&strMsg end if 'Verifica se o e-mail é exixtente If strEmail = "" Or instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then response.redirect "ajuda_email.asp?erro=- Por favor preencha o seu e-mail corretamente!&nome="&strNome&"&email="&strEmail&"&assunto="&strAssunto&"&msg="&strMsg end if 'Valida a mensagem If strMsg = "" then response.redirect "ajuda_email.asp?erro=- Por favor escreva sua mensagem!&nome="&strNome&"&email="&strEmail&"&assunto="&strAssunto&"&msg="&strMsg end if If strAssunto = "" then strAssunto = "Esclarecimento de dúvida do Cliente" end if StrMsg2 = "" StrMsg2 = StrMsg2 & "" StrMsg2 = StrMsg2 & "" StrMsg2 = StrMsg2 & "" StrMsg2 = StrMsg2 & "" StrMsg2 = StrMsg2 & "

" StrMsg2 = StrMsg2 & "" StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & "

" StrMsg2 = StrMsg2 & "

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

" StrMsg2 = StrMsg2 & "

Duvida de Cliente enviado através da da sua loja!" StrMsg2 = StrMsg2 & " " StrMsg2 = StrMsg2 & "

Data: "&day(now)&"/"&month(now)&"/"&year(date)&" " StrMsg2 = StrMsg2 & "

" StrMsg2 = StrMsg2 & "

Um cliente acessou o site e acessou o menu Atendimento > Por Email , com dúvidas sobre "&strDuv&". Abaixo segue a mensagem do cliente:

Nome: "&strNome&"

Email: "&strEmail&"

Mensagem: "&strMsg&"

" StrMsg2 = StrMsg2 & "

" 'Corpo do e-mail strMensagem = StrMsg2 'Envia o e-mail %> <%EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), strEmail, "", emailloja, strAssunto, strMensagem%>

<%=strLg4%> » <%=strLg14%>

<%=strLg124%>

<%=strLg125%> <%=strNome%>, <%=strLg126%>
<%=strLg127%>

width=100>

<% response.end else%> <% duvida = request("duvida") %>

<%=strLg4%> » <%=strLg14%>

width=100>

<%=strLg17%> <%=request.querystring("erro")%>

;font-size=11px; color=#000000> <%=strLg129%>	">
<%=strLg108%>	">
;font-size:10px;color:#808080;><%=strLg130%>
<%=strLg131%>
<%=strLg132%>	">
<%=strLg133%>
<%=request.querystring("msg")%>

/imagens/envi.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg140%>';return true;">

/imagens/limpar.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg89%>';return true;">

width=100>

<%end if%>