<% '######################################################################################### '# Loja Virtua Developer Pack 6 - Versão Beta '######################################################################################### %> <% 'Verifica a senha do usuario if request.querystring("senha") = "enviar" then strEmail = request.form("email") 'Chama a senha do usuario Set dados = abredb.Execute("SELECT senha, email FROM clientes WHERE email='"&Cripto(strEmail,true)&"'") if dados.EOF then strEmail = "sim@." else strEmail = strEmail end if if strEmail = "" OR instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then dados.close set dados = nothing 'Fecha o banco de dados abredb.close set abredb = nothing response.redirect "senha.asp?erro="&strLg245 end if if strEmail = "sim@." then dados.close set dados = nothing response.redirect "senha.asp?erro="&strLg244 end if strSenha = Cripto(dados("senha"),false) 'Corpo do e-mail com a senha do cliente 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 & "

Esta é o e-mail resposta com " strMensagem = strMensagem & " os dados requisitados:
Sua senha é: "& strSenha &"

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

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

" 'Envia o e-mail %> <%EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), emailloja, "", strEmail, "Sua senha da loja "&nomeloja&"!", strMensagem%>

Home » <%=strLg182%>

<%=strLg246%>

<%=strLg247%> <%=strEmail%>!

:: <%=strLg41%> :: <% dados.close set dados = nothing else %>

Home » <%=strLg182%>

<%=strLg246%>

<%=strLg248%>

<%=request.querystring("erro")%>
<%=strLg249%> > style=font-size:10px; color=red>

<%end if%>