<% mensagem = request.form("mensagem") assunto = request.form("assunto") strEmailHTML = "" strEmailHTML = strEmailHTML & "
" & nomeloja & " - " & urlloja & "
" strEmailHTML = strEmailHTML & "
" strEmailHTML = strEmailHTML & "
" strEmailHTML = strEmailHTML & "" strEmailHTML = strEmailHTML & "
"&mensagem&"
" strEmailHTML = strEmailHTML & "" Session("mensagem") = strEmailHTML para = request.form("para") if para="todos" then set cliente = conexao.execute("SELECT email FROM clientes") while not cliente.eof enviar loja("email"), hash(cliente("email")) , loja("nome_loja") &" - "&assunto&"", mensagem cliente.movenext wend cliente.close set cliente = nothing set news = conexao.execute("SELECT email FROM newsletter") while not news.eof enviar loja("email"), news("email"), loja("nome_loja") &" - "&assunto&"", mensagem news.movenext wend news.close set news = nothing elseif para = "clientes" then set cliente = conexao.execute("SELECT email FROM clientes") while not cliente.eof enviar loja("email"), hash(cliente("email")) , loja("nome_loja") &" - "&assunto&"", mensagem cliente.movenext wend cliente.close set cliente = nothing elseif para="news" then set news = conexao.execute("SELECT email FROM newsletter") while not news.eof enviar loja("email"), news("email"), loja("nome_loja") &" - "&assunto&"", mensagem news.movenext wend news.close set news = nothing else enviar loja("email"), request.form("para"), loja("nome_loja") &" - "&assunto&"", mensagem end if %>
O envio foi do newsletter foi concluido!