Nenhuma resposta neste tópico

[marx]

Estou tentando criar um arquivo XML através de uma consulta SQL.

Ele está acusando erro, e como meu servidor não mostra detalhes, não sei exatamente em qual linha.

Mas isolando o código, descobri o bloco.

Alguem tem alguma ideia?

Set conn = Server.CreateObject("ADODB.Connection")
connString = MM_conn_STRING
conn.Open connString,"",""

set xml=server.createobject("microsoft.xmldom")

set raiz=xml.createElement("noticias")
xml.appendchild(raiz) 
set cabecalho=xml.createprocessinginstruction("xml","version='1.0' encoding='ISO-8859-1'")
xml.insertbefore cabecalho,raiz 

sql = "select codItemNoSite, nomeTabelaNoSite from itens where codInformativoItem = " + Session("MM_Codinformativo")

Set Resultado = conn.Execute(sql)

Do until Resultado.EOF
  
  set registro=xml.createelement("noticias") 
  raiz.appendchild(registro)

  set codItemNoSite=xml.createelement("codItemNoSite") 
  codItemNoSite = Resultado("codItemNoSite")
  registro.appendchild(codItemNoSite) 

  set nomeTabelaNoSite=xml.createelement("nomeTabelaNoSite")
  nomeTabelaNoSite = Resultado("nomeTabelaNoSite")
  registro.appendchild(nomeTabelaNoSite) 

  Resultado.MoveNext 
Loop 

Set Resultado = nothing

xml.save (server.Mappath("../xml/itensenviados.xml"))

set xml=nothing