Portal iMastersPortal iMasters
Assine a newsletterNewsletter
NOTÍCIA

Sistema de newsletter utilizando XML e XSL

Redação iMastersRedação
2 min de leitura

Neste artigo vamos ver como
desenvolver um sistema de newsletter em ASP, utilizando
XML e XSL. Você encontrará os comentários
e os códigos de todos os arquivos.

Passo1.
Criando o documento XML que conterá os emails
e nomes das pessoas:

cadastro.xml
<?xml
version="1.0" encoding="ISO-8859-1"?>
<cadastro>
<usuario>
<nome>Teste</nome>
<email>teste@</email>
</usuario>
<usuario>
<nome>Teste2</nome>
<email>teste2@</email>
</usuario>
</cadastro>


Passo2.
Criando os documentos responsáveis por inserir
novos cadastrados na lista:

form_cadastro.html↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →

<html><body
bgcolor="white">
<form action="cadastrar.asp" method="post">
<b>Seu nome:</b><input type="text"
name="nome"><br>
<b>Seu e-mail:</b><input type="text"
name="email"><br>
<input type="submit" value="Cadastrar">
</form>
</body></html>


cadastrar.asp

<%@Language=VBScript%>
<html><body>
<%
nome=request.form("nome")
email=request.form("email")
set doc=server.createobject("microsoft.xmldom")
doc.load(server.mappath("cadastro.xml"))
set raiz=doc.documentElement
set registro=doc.createelement("usuario")
raiz.appendchild(registro)
set campo=doc.createelement("nome")
campo.text=nome
registro.appendchild(campo)
set campo=doc.createelement("email")
campo.text=email
registro.appendchild(campo)
doc.save(server.mappath("cadastro.xml"))
response.write"Cadastro realizado com sucesso!"
%><br>
<a href="admin.asp">Clique aqui
para voltar à administracao</a>
</body></html>


Passo3.
Mostrando os cadastrados, apagando cadastrado e link para
enviar os e-mails:

admin.xsl
<?xml
version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"
xmlns="http://www.w3.org/TR/REC-html40">
<xsl:template match="/">
<html><body>
<a href="email_escrever.html">Escrever
e-mail para cadastrados</a><br>
<center>
<table border="1">
<tr>
<td><b>Nome</b></td>
<td><b>E-Mail</b></td>
<td><b>Apagar</b></td>
</tr>
<xsl:for-each select="cadastro/usuario">
<tr>
<td><xsl:value-of select="nome"/></td>
<td><xsl:value-of select="email"/></td>
<td><a><xsl:attribute name="href">apagar.asp?email=<xsl:value-of
select="email"/></xsl:attribute>Apagar</a></td>
</tr>
</xsl:for-each>
</table></center></body></html>
</xsl:template>
</xsl:stylesheet>


admin.asp

<%@Language=VBScript%>

<%
set xsldoc=server.createobject("microsoft.xmldom")
set xmldoc=server.createobject("microsoft.xmldom")
xmldoc.load(server.mappath("cadastro.xml"))
xsldoc.load(server.maptah("admin.xsl"))
response.write(xmldoc.transformnode(xsldoc))
%>


apagar.asp

<%@Language=VBScript%>

<%response.buffer="true"%>
<%
set xmldoc=server.createobject("microsoft.xmldom")
xmldoc.load(server.mappath("cadastro.xml"))
set raiz=xmldoc.documentElement
set registro=raiz.selectsinglenode("usuario[email=’"&
request.querystring("email")&"’]")
raiz.removechild(registro)
xmldoc.save(server.mappath("cadastro.xml"))
response.redirect"admin.asp"
%>


Passo4.
Já estamos chegando ao final, basta criar o forumlário
de envio de e-mail e o arquivo que envia os e-mails:

email_escrever.html

<html><body
bgcolor="white">
<form action="email_enviar.asp">

<b>Mensagem da newsletter:</b><br>
<textarea name=”texto” rows=”6″ cols=”35″>
</textarea><br>
<input type="submit" value="Enviar">
</form></body></html>


email_enviar.asp

<%@Language=VBScript%>
<%
set rs=server.createobject("adodb.recordset")
rs.open(server.mappath("cadastro.xml"))
do until rs.eof
email=rs("email")
rs.movenext
loop
rs.close
set rs=nothing
texto=request.form("texto")
set mail=server.createobject(“CDONTS.NewMail”)

mail.To=email
mail.From=”seuemail@servidor.com.br”
mail.Subject=”Assunto”
mail.Body=texto
mail.Send
set mail=nothing
response.write"E-Mail enviado com sucesso!"
%>
<html><body bgcolor="white">
<a href="admin.asp">Voltar à
administracao</a>
</body></html>


Chegamos ao fim deste artigo. Realmente nâo é
nem um pouco difícil fazer um sistema de newsletter
em XML…
É importante dizer que é preciso que seu
servidor tenha o objeto CDONTS para envio de e-mails.

Redação iMastersRedação

Matérias especiais e reportagens conduzidas internamente pela Redação iMasters. Acompanhe no Twitter @imasters e no Instagram/Threads @portalimasters

Mais de Redação iMasters
FacebookXurl
Ver perfil →
Leia também

No Instagram

Seguir @portalimasters →
AICriar agentes de IA em .NET ganhou um caminho direto: unir o framework MAF ao Ollama.Dev (Back & Front)O Nano Banana ficou com metade do preço? O Google lançou ontem o Nano Banana 2.1, o novo modelo de geração e edição de imagens.♥ 1Opus 5.5 e Sonnet 5.5 têm certificação FedRAMP Classe D no Bedrock. O Sonnet 5 soma a isso autorização DoD Impact Level 4 e 5, sendo a indic♥ 2Marketing TechA exigência alcança Google Play, HONOR App Market, OPPO App Market, Galaxy Store, Palm Store, V Appstore e GetApps.♥ 2
↳

Fios