ASP + XML Organizar os registros

[web_w3 0]

Olá pessoal.

 

Estou com uma duvida sobre os novos registros que meu script ASP cria no aquivo XML.

Ele está colocando os novos registros um do lado do outro, nao fazendo uma quebra de linha pra organizar.

 

E acaba ficando assim:

<?xml version="1.0" encoding="ISO-8859-1"?>
<mensagens>
  <msg sid="13254342" to="93876434">Olá João!</msg><msg sid="39475456" to="32357547">Boa noite mariana. beijos</msg><msg sid="49453756" to="57343527">Até amanhã, me liga.</msg></mensagens>

 

Gostaria que ele fizesse a quebra de linha dos novos registros <msg>, ficando assim:

<?xml version="1.0" encoding="ISO-8859-1"?>
<mensagens>
  <msg sid="13254342" to="93876434">Olá João!</msg>
  <msg sid="39475456" to="32357547">Boa noite mariana. beijos</msg>
  <msg sid="49453756" to="57343527">Até amanhã, me liga.</msg>
</mensagens>

 

Tem como eu colocar essa quebra de linha após um novo registro?

 

Obrigado.

[Ted k' 126]

simples, usa isso aqui " &VbCrlf"

 

exemplo:

response.write("<msg sid=""13254342"">Olá João!</msg>") &VbCrlf

[web_w3 0]

simples, usa isso aqui " &VbCrlf"

 

exemplo:

response.write("<msg sid=""13254342"">Olá João!</msg>") &VbCrlf

Não funcionou no meu caso. Porque eu adiciono novos registro de outra forma, veja só:

 

Set obj_XML = Server.CreateObject("Microsoft.XMLDOM")

Set usuario = obj_XML.createelement("user")

usuario.SetAttribute "id", id
usuario.SetAttribute "tipo", tipo
usuario.SetAttribute "email", email
usuario.SetAttribute "pass", pass
usuario.SetAttribute "nome", nome
usuario.SetAttribute "foto", foto

obj_XML.documentElement.appendchild(usuario)
obj_XML.Save(Server.Mappath("usuarios.xml"))

tentei assim, mas nao deu:

obj_XML.documentElement.appendchild(usuario) & VbCrlf

[Ted k' 126]

não amigo, esse código não é o que está gerando o seu XML ai:

 

aqui o exemplo:

<%
ArquivoXML = "criado.xml"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True)

Linhas.WriteLine("<?xml version=""1.0""?>") & VbCrlf
Linhas.WriteLine("<container>") & VbCrlf
Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" ) & VbCrlf
Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" ) & VbCrlf
Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" ) & VbCrlf
Linhas.WriteLine("</container>")

Set Linhas = Nothing
Linhas.Close
%>

[web_w3 0]

não amigo, esse código não é o que está gerando o seu XML ai:

 

aqui o exemplo:

<%
ArquivoXML = "criado.xml"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True)

Linhas.WriteLine("<?xml version=""1.0""?>") & VbCrlf
Linhas.WriteLine("<container>") & VbCrlf
Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" ) & VbCrlf
Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" ) & VbCrlf
Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" ) & VbCrlf
Linhas.WriteLine("</container>")

Set Linhas = Nothing
Linhas.Close
%>

Não amigo, eu to acrescentando uma nova linha no arquivo XML já existente, e não criando um aquivo XML.

E esse meu código está funcionando perfeitamente.

 

Unico problema é que nao consigo faze-lo quebrar a linha.

[Ted k' 126]

então vamos ver como está cadastrando, pois ai vai ser bel complicado você apresentar assim, acho que só fazendo um array para pegar os nós das tags e dando um Chr(13) para apresentar!