Asp E Xml

[Guest freeman]

ae alguém sabe como eu exporto asp pra XML

[Guest Guest]

Especifique melhor o que você quer

[Guest freeman]

eu tenho um cadastro em asp que grava num banco de dados SQL Server

so que eu queria exportar os resultados q estao no sql server para xml ou txt

[Guest - André -]

Coloque esse codigo na página que vai gravar

<%

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

ObjXml.Async = False

ObjXml.Load(Server.MapPath("teste.xml"))

''Aqui você cria o root node , o nó raiz(principal)

Set ObjRaiz = ObjXml.CreateElement("cadastro")

ObjXml.AppendChild ObjRaiz

'//Bloco que deve ser replicado para criar outros nós

''Aqui você cria o group node, o nó que representa o grupo

Set ObjNo = ObjXml.CreateElement("item")

ObjRaiz.AppendChild ObjNo

''Aqui você cria os nós que vão estar dentro do grupo,

no exemplo está INFO1, lá você deve por o NOME DO CAMPO DO BANCOe para gravar nesse nó de um request do campo que você quer que grave

neste nó, e assim por diante.

O info 2 já é outro campo, é só ir criando os nós de acordo com os campos do seu banco

Set ObjInfo = ObjXml.CreateElement("info1")

obxml.selectsinglenode("//cadastro/item/info1").text = request("nomedocampo")

ObjNo.AppendChild ObjInfo

Set ObjInfo = ObjXml.CreateElement("info2")

obxml.selectsinglenode("//cadastro/item/info2").text = request("nomedocampo")

ObjNo.AppendChild ObjInfo

'//----------------------------------------------

ObjXml.Save(Server.MapPath("teste.xml"))

Set ObjXml = Nothing

%>

Falow

[Guest - André -]

Cara onde eu coloquei

Set ObjInfo = ObjXml.CreateElement("info1")

obxml.selectsinglenode("//cadastro/item/info1").text = request("nomedocampo")

ObjNo.AppendChild ObjInfo

Mude essa linha que está em vermelho para

ObjInfo.Text = request("nomedocampo")

Talvez precise concatenar aqui

ObjInfo.Text = & request("nomedocampo")

Tente dos dois jeitos.Porque não estou testando e não estou lembrando se tem que concatenar ali.

Falow

[Victor]

Ai kras. Se cadastrem no forum ai!!!

[Reginaldo ASP]

veja