<% '######################################################################################### '# Loja Virtua Developer Pack 6 - Versão Beta '######################################################################################### %> <% '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%>