ASP gerando XML

[FabianoSouza 5]

Pessoal, preciso fazer uma integração com um portal de vagas de emprego.

Para isso preciso fazer meu ASP gerar um XML nesse modelo http://services.seniormanager.com.br/integracao/output/jooble/xml/vagas.xml

 

Aqui é como está ficando minha saída (não consigo evoluir) - http://services.seniormanager.com.br/integracao/output/jooble/xml/vagas-jooble.xml

 

Não consigo atachar corretamente os nós:

"link"

"description"

"apply_url"

nem definir o CDATA para alguns deles .

 

O ASP que gera o segundo link está mais ou menos assim. 

HELP!!

 

Citar

		Function geraXMLAcessos()
	
' Cria uma instância do controle
		Set MsXml = Server.CreateObject("MSXML2.DOMDocument.6.0")
		
		' Caminho onde o arquivo será salvo
	str_Arquivo = Server.MapPath("/vagas-integrador.xml")
	
		' O método createElement adiciona os elementos
		Set root = MsXml.createElement("jobs")
		MsXml.appendChild(root)
	
		Set inst = MsXml.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
		MsXml.insertBefore inst, root

		'Inicia loop
		While Not rsXML.EOF
		Set onode = MsXml.createElement("job")
		onode.setAttribute("id") =  "XPTO"
		MsXml.documentElement.appendChild(onode)
	
		' *****************************************************
		' * Cria nó do item ao documento
		' *****************************************************
		Set inode = MsXml.createElement("link")
		inode.Text = "Link..."
		onode.appendChild(inode)



		Set inode = MsXml.createElement("name")
		onode.appendChild(inode)
		inode.Text = "Name..."

	
		' *****************************************************
		rsXML.MoveNext()
		Wend
		
		' Salva o arquivo no caminho especificado
		MsXml.save(str_Arquivo)
	
		'Destrói nós da memória
		Set child = Nothing
		Set inode = Nothing
		Set onode = Nothing
		Set inst  = Nothing
		Set root  = Nothing
	
		'Destrói objeto XML da memória
		Set MsXml = Nothing

		'Destrói recordset da memória
		Set rsXML=Nothing
		
		'rsXML.Close
		MM_conexao_STRING.Close
		
		If Err.Number <>0 Then
		Response.Write err.description
		Else
		Response.Write "ok"
		End if
		End function


geraXMLAcessos()

 

 

[FabianoSouza 5]

Putz, esse fórum é abençoado.

É só postar a dúvida que as ideias se "alumiam", como diria João Grilo kkkkk

 

Bom,  a coisa era simples, eu que estava em pânico hehehe

Precisava criar as seções CDATA para os nós. Algo como

		Set inode = MsXml.createElement("name")
		onode.appendChild(inode)
		Set cdata = MsXml.createCDATASection("Name...")
		inode.appendChild(cdata)

 

Problema resolvido.