<% Set rs = conexao.Execute("SELECT * FROM clientes ORDER by nome ASC") Set rs1 = conexao.Execute("SELECT * FROM newsletter ORDER by email") %>
<%if request("mensagem") <> "" then%>
<%=request("mensagem")%>
<%end if%>
Enviar para:
Para Todos (Clientes e Assinantes)
Somente Clientes da Loja
Somente Assinantes da Newsletter da Loja
<%While Not rs.EOF %>
><%= hash(rs("nome")) %> (<%= hash(rs("email")) %>)
<% rs.movenext Wend%>
<%While Not rs1.EOF %>
><%= rs1("email")%>
<% rs1.movenext Wend%>
Assunto:
Escreva abaixo a mensagem que deverá ser encaminhada:
<% 'Check user's Browser if InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then Response.Write "" else Response.Write "" end if %>
escreva aqui
Copyright ® 2009 - LojaVirtual.com - Todos os Direitos Reservados - Desenvolvimento
NOVISELL
