[Resolvido] Gerando um arquivo XML por meio de uma pesquisa no BD

[Davicamarinha 0]

Bom dia, estou procurando a tempos um tutorial ou script, para que um arquivo ASP faça uma pesquisa em um BD e crie um arquivo XML. Eu consegui mostrar o codigo direto no browser. Gostaria de saber, se alguem me indica como fazer para ele gravar o arquivo XML. Segue meu script abaixo.

 

<!-- #include file="config.asp" -->
<%
Response.ContentType = "text/xml"
		Set SQL = Server.CreateObject("ADODB.Recordset")
		SQL.Open ("SELECT * FROM banner"),banner

%>
<?xml version="1.0" encoding="utf-8"?>
<playlist version="1" xmlns="http://xspf.org/ns/0/">
	<trackList>
		<% Do While not SQL.EOF %>
		<track>
			<title><%=SQL("titulo")%></title>
			<creator><%=SQL("criador")%></creator>
			<location><%=SQL("arquivo")%></location>
			<info><%=SQL("link")%></info>
		</track>
		<%SQL.MoveNext : Loop%>
	</trackList>
</playlist>

[Ted k' 126]

você tem que execultar o SQL e não abrir ele!

 

Set RS = Conn.Execute("SELECT * FROM banner")

[Davicamarinha 0]

você tem que execultar o SQL e não abrir ele!

 

Set RS = Conn.Execute("SELECT * FROM banner")

Bom, não era isso, mas eu ja resolvi

 

<!-- #include file="config.asp" -->
<%

		Set SQL = Server.CreateObject("ADODB.Recordset")
		SQL.Open ("SELECT * FROM banner"),banner
		
set xml=server.createobject("microsoft.xmldom")

'Crio o elemento RAIZ do documento

set raiz=xml.createElement("playlist version='1' xmlns='http://xspf.org/ns/0/'")
xml.appendchild(raiz)

'Insiro o cabeçalho ao documento
set cabecalho=xml.createprocessinginstruction("xml","version='1.0' encoding='utf-8'")
xml.insertbefore cabecalho,raiz

Do While not SQL.EOF

'Crio o elemnto REGISTRO
set registro=xml.createelement("trackList")
raiz.appendchild(registro)



'Agora insiro os elementos nome e email ao documento
set titulo=xml.createelement("title")
titulo.Text=SQL("titulo")
registro.appendchild(titulo)

set criador=xml.createelement("creator")
criador.Text=SQL("criador")
registro.appendchild(criador)

file_name = "../banner/" & SQL("arquivo")

set arquivo=xml.createelement("location")
arquivo.Text=(file_name)
registro.appendchild(arquivo)

set link=xml.createelement("info")
link.Text=SQL("link")
registro.appendchild(link)
SQL.MoveNext : Loop
'Salvo o documento como arquivo.xml
xml.save server.mappath("../banner.xml")

'Libero o objeto DOM
set xml=nothing


%>

[Ted k' 126]

á, é gerar um arquivo, ok!!!