Xml & Asp

[pegaso22]

Ciao a tutti,
ho questo file xml che utilizzo per far visualizzare delle fotografie con effetti particolari:

<?xml version="1.0"?>
<!-- 
set transition number from 1 to 9
set transition number to 0 for random effect
 -->
<RSS PAUSE="2500">
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto1.jpg</IMAGE>
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto2.jpg</IMAGE>
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto3.jpg</IMAGE>
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto4.jpg</IMAGE>
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto5.jpg</IMAGE>
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto6.jpg</IMAGE>				
	<IMAGE TRANSITION="0">/public/fotobenvenuto/foto7.jpg</IMAGE>					
</RSS>

Questo file lo richiamo dentro un file flash e funziona benissimo.
Ora però vorrei sostituire le immagini fisse fot1.jpg, foto2.jpg ecc... con delle immagini i cui nomi vengono presi da database.
E' possibile integrare una parte asp in un file xml?
Come?

Altrimenti avete altre soluzioni per far visualizzare immagini prese da database che ruotino con effetto dissolvenza?

Fatemi sapere.
Grazie mille.

[pegaso22]

per ora ho risolto così:

<?xml version="1.0"?>
<!-- 
set transition number from 1 to 9
set transition number to 0 for random effect
 -->
<%
dim co 
set co = server.createObject("ADODB.Connection") 
co.Open "Driver={MySQL ODBC 3.51 Driver};server=62.xxx;port=3306;Database=xxx;UID=xxx;PWD=xxx;"
dim rs 
set rs = server.createObject("ADODB.Recordset") 
strq = "select * from retroshop where abilitato='S'"
rs.Open strq,co,2,3 


x = 0
rs.movefirst

Response.Write("<RSS PAUSE=""2500"">") 
Do while not rs.eof 
	x = x + 1
	Response.Write("<IMAGE TRANSITION=""1"">/public/retroshop/" & rs("foto") & "</IMAGE>")
	rs.movenext
Loop

Response.Write("</RSS>")
%>

il problema ora è che vorrei integrare questa pagina asp che mi genera una pagina xml, cercando di inserire un if così come facci oin una pagina asp normale:

<?xml version="1.0"?>
<!-- 
set transition number from 1 to 9
set transition number to 0 for random effect
 -->
<%
id = Request.QueryString("id")
if id = 1 then
dim co 
set co = server.createObject("ADODB.Connection") 
co.Open "Driver={MySQL ODBC 3.51 Driver};server=62.149.150.23;port=3306;Database=Sql35582_2;UID=Sql35582;PWD=(8LMkRD-;"
dim rs 
set rs = server.createObject("ADODB.Recordset") 
strq = "select * from retroshop where abilitato='S'"
rs.Open strq,co,2,3 


x = 0
rs.movefirst

Response.Write("<RSS PAUSE=""2500"">") 
Do while not rs.eof 
	x = x + 1
	Response.Write("<IMAGE TRANSITION=""1"">/public/retroshop/" & rs("foto") & "</IMAGE>")
	rs.movenext
Loop

Response.Write("</RSS>")
end if
%>

Però mi da questo errore:
Impossibile visualizzare la pagina XML
Impossibile visualizzare l'input XML tramite il foglio di stile . Correggere l'errore, quindi fare clic su Aggiorna, oppure riprovare in un momento successivo.


--------------------------------------------------------------------------------

Per il documento XML è necessario specificare un elemento di primo livello. Errore durante l'elaborazione della risorsa "ht...


Cosa sto sbagliando??
Fatemi sapere.
Grazie.