 |
<%
' Cria uma instância do controle
Set XmlParser = Server.CreateObject("AspXml.AspXml")
' Cria o elemento
XmlParser.Tag = "ComponentesASP"
Set XmlParser = XmlParser.NewChild("ManipulaçãoXML", "")
' Cria um registro
Set XmlParser = XmlParser.NewChild("item", "")
XmlParser.NewChild2 "nome", "MSXML - Microsoft"
XmlParser.NewChild2 "versão", "2.0 / 2.6 / 3.0 / 4.0"
XmlParser.NewChild2 "fabricante", "http://www.microsoft.com/"
XmlParser.GetParent2()
Set XmlParser = XmlParser.NewChild("item", "")
XmlParser.NewChild2 "nome", "ASP XML Parser - Chilkat Software"
XmlParser.NewChild2 "versão", "2.2.1"
XmlParser.NewChild2 "fabricante", "http://www.chilkatsoft.com/"
XmlParser.GetRoot2()
' Codificação do arquivo XML
XmlParser.Encoding = "iso-8859-1"
' Salva o arquivo no caminho especificado
XmlParser.SaveXml( Server.MapPath("arquivo.xml") )
' Tira o objeto da memória
Set XmlParser = Nothing
%>
|