asp -> xml

[engonga]

Hola.

Como de puede crear un fichero xml a partir de un fichero asp que me develve un resultado de una busqueda en una bade de datos?

necesito crear el dt tambien?

es que el fichero en xml lo voy a chupar con flash mx 2004

[choroy]

Mira aqui te pongo una pagina que tengo yo en asp para crear una xml, espero que te sirva de ayuda.

Código:

<%Response.ContentType = "text/xml"%>

<?xml version="1.0" encoding="ISO-8859-1"?>

<channel> 

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "db.foros"
sqltxt="select * from foros where codigof="&nforo

set rs=createobject("ADODB.Recordset")
rs.open sqltxt,conn

codigof=rs("codigof")
nombredelforo=rs("foro")
comentariodelforo=rs("comentario")
comentariodelforo=Replace(comentariodelforo,"<BR>","<br>")
comentariodelforo=Replace(comentariodelforo,"<br>","<br/>")

%>

<title><%=nombredelforo%></title> 
<link>http://www.miweb.net/noticiastemadeforo.asp?nforo=<%=nforo%></link> 
<language>es</language> 
<description><% = comentariodelforo%></description><%
rs.close
n=0
%><%
sqltxt2="select * from preguntas where foro="&nforo&" order by ultima desc"
rs.open sqltxt2,conn,3,1

do while not rs.eof
n=n+1
temapregunta=rs("temapregunta")
temapregunta=Replace(temapregunta,"<BR>","<br>")
temapregunta=Replace(temapregunta,"<br>","<br/>")

%>


<item> 
<link>http://www.miweb.net/noticiasmensajesaforo.asp?numero=<%=rs("numero")%>&amp;nforo=<%=nforo%></link><title><%=rs("tematitulo")%></title><description><% =temapregunta %></description></item><%rs.movenext
loop
rs.close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%></channel>