asp stampo a video xml di una tabella di un db, ma come lo creo xml?

[matral]

questa è la pagina a.asp
con questo codice ricavo il contenuto della tabella dati
e me li visualizza a video.
la mia domanda è:
ora che li ho stampati a video, come creo xml?

<%
Response.ContentType="text/xml"
Response.Expires = -1
%><?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>
<!DOCTYPE canale [
<!ELEMENT canale (titolo, collegamento, descrizione, lingua, item+)>
<!ELEMENT titolo (#PCDATA)>
<!ELEMENT collegamento (#PCDATA)>
<!ELEMENT descrizione (#PCDATA)>
<!ELEMENT lingua (#PCDATA)>
<!ELEMENT item (title, link, description)*>
<!ELEMENT title (#PCDATA)> 
<!ELEMENT link (#PCDATA)>
<!ELEMENT description (#PCDATA)>
]>

<canale>
<titolo>Risorse.net</titolo>
<collegamento>http://www.risorse.net/</collegamento>
<descrizione>Comunità virtuale per webmaster</descrizione>
<lingua>it</lingua>

<%
dim strConn
strConn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("db.mdb") & "; Persist Security Info = False"
Set conn=Server.CreateObject("ADODB.Connection") 
conn.Open strConn
SQL = "SELECT id,link,titololink,descrizione FROM dati ORDER BY id DESC"
set rs = conn.Execute(SQL)
do until Rs.eof
%>

<item>
<title><%=Server.HTMLEncode(rs("titololink"))%></title>
<link>http://<%=rs("link")%></link>
<description><%=rs("descrizione")%></description>
</item>

<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</canale>

[matral]

è possibile creare xml da una pagina che stampa a video xml?
nel mio esempio la pagina a.asp?

posso usare una cosa del genere?

<% 
Dim xmlDoc, root 
Dim xmlContent, success 
Dim xmlData 
Dim i 

Set xmlDoc = Server.CreateObject("msxml2.DOMDocument") 

xmlContent = "è possibile mettere qui la pagina a.asp???????" 


success = xmlDoc.loadXML(xmlContent) 
If success = True Then 
     set xmlData = xmlDoc.getElementsByTagName("canale/item") 
     For i = 0 To (xmlData.length - 1) 
          Response.Write "[*]" & xmlData.Item(i).xml 
     Next 
     set xmlData = nothing 
Else 
     Response.Write "Impossibile caricare il File XMl... " & Server.HTMLEncode(xmlContent) 
End If 

xmlDoc.save Server.Mappath("libreria.xml") 

Set xmlDoc = Nothing 
%>

[asdfgasdfg]

Certo che puoi fare come hai scritto,
devi solo far attenzione al parser xml che hai montato, per la dichiarazione degli oggetti,
ora siamo al 4.0
Set xmlDoc = Server.CreateObject("msxml2.DOMDocument.4.0")

Controlla tu che versione hai.
N.B
visto che lavori con un xml io non userei
getElementsByTagName, ma selectNode
e
For i = 0 To (xmlData.length - 1)
Response.Write "[*]" & xmlData.Item(i).text
Next

Ciao

[matral]

ma la pagina come la incollo dentro?

<% 
Dim xmlDoc, root 
Dim xmlContent, success 
Dim xmlData 
Dim i 

Set xmlDoc = Server.CreateObject("msxml2.DOMDocument.4.0") 
xmlContent = "qui come la incollo la pagina?" 

success = xmlDoc.loadXML(xmlContent) 
If success = True Then 
	 set xmlData = xmlDoc.selectNode("canale") 
     For i = 0 To (xmlData.length - 1) 
           Response.Write "[*]" & xmlData.Item(i).text 
     Next 
	 set xmlData = nothing 
Else 
     Response.Write "Impossibile caricare il File XMl... " & Server.HTMLEncode(xmlContent) 
End If 

xmlDoc.save Server.Mappath("libreria.xml") 
Set xmlDoc = Nothing 
%>

[matral]

up

[asdfgasdfg]

non incolli la pagina ma la costruisci un esempio così:
fai la tua interrogazione hai il tuo cursore "rs" fai
<ROOT>
do while not rs.eof
XMLCOMPLETO = XMLCOMPLETO & RESPONSE.WRITE "<primotag>" & RS(1) & " </primotag>"
XMLCOMPLETO = XMLCOMPLETO &RESPONSE.WRITE "<SECONDOtag>" & RS(2) &"</SECONDOtag>"
........
loop
</ROOT>

[matral]

UP