<% %> <% ' Dados do e-mail strEmail = request.form("email") strIdProd = request.form("idProd") strNomeProd = request.form("nome") strFab = request.form("fabricante") strAssunto = "Solicitação de Produtos em Falta" 'Busca o nome do cliente set rs = abredb.execute("select nome from clientes where email='" & Cripto(Session("usuario"),true) & "'") if not rs.eof then strNome = Cripto(rs("nome"),false) end if rs.close set rs = nothing If strEmail = "" Or instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then response.redirect "produtos.asp?produto="&strIdProd&"&erro=Preencha o E-Mail Corretamente!" end if 'Monta a Mensagem StrMsg = "" StrMsg = StrMsg & "" StrMsg = StrMsg & "" StrMsg = StrMsg & "" StrMsg = StrMsg & "" StrMsg = StrMsg & "

" StrMsg = StrMsg & "" StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & " " StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

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

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

Solicitação de Produtos em Falta" StrMsg = StrMsg & " " StrMsg = StrMsg & "

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

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

Um cliente acessou o produto abaixo e o mesmo está em falta no estoque da loja virtual.
Avisá-lo quando este produto estiver em Estoque, pelo email " StrMsg = StrMsg & " "&strEmail&"

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

" StrMsg = StrMsg & "

Nome do produto:" StrMsg = StrMsg & " "&strNomeProd&"
Fabricante: "&strFab&" " StrMsg = StrMsg & "
Código do Produto: "&strIdProd&" " StrMsg = StrMsg & "
Link do Produto na loja: http://"&urlloja&"/produtos.asp?produto="&strIdProd&"

" StrMsg = StrMsg & "

" %> <%EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), strEmail, "", emailloja, strAssunto, strMsg%>

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

>

<%=strLg124%>

<%=strLg125%> <%if strNome="" then Response.Write "Visitante" else Response.Write strNome end if %>, <%=strLg252%>
<%=strLg127%>

>

<%' response.write StrMsg '*** Usado para testes (comentar a linha do EnviaEmail) %>