La news e le foto le scarico tutte in questo modo...
[CODE<%
'APRO IL RECORDSET DELLE NEWS SE LA VARIABILE E' VUOTA E NON ESISTE ANCORA LA NEWS
Set cnConn = Server.CreateObject("ADODB.Connection")
cnConn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/flash.mdb")
sqlNews = "SELECT * FROM news"
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open sqlNews, cnConn, 3, 3
if not rsNews.recordcount=0 then
do while not rsNews.eof
stringa="<titolo>" & rsNews("data") & " - " & rsNews("titolo") & "</titolo><abstract>" & rsNews("abstract") & "</abstract><testo>" & rsNews("testo") & "</testo>"
'APRO IL RECORDSET PER LE FOTO ALLEGATE
sqlNewsFoto= "select * from news_foto where id_news="&rsNews("id")
Set rsNewsFoto = Server.CreateObject("ADODB.Recordset")
rsNewsFoto.Open sqlNewsFoto, cnConn, 1, 3
if not rsNewsFoto.recordcount=0 then
i=0
do while not rsNewsFoto.eof
stringa = stringa & "<image"&i&">" & rsNewsFoto("foto") & "</image"&i&">"
i=i+1
rsNewsFoto.movenext
loop
stringa = stringa & "<foto>" & i & "</foto>"
end if
'APRO IL RECORDSET PER I LINK ALLEGATI
sqlNewsLink= "select * from news_link where id_news="&rsNews("id")
Set rsNewsLink = Server.CreateObject("ADODB.Recordset")
rsNewsLink.Open sqlNewsLink, cnConn, 1, 3
if not rsNewsLink.recordcount=0 then
i=0
do while not rsNewsLink.eof
stringa = stringa & "<descrLink"&i&">" & rsNewsLink("descr_link") & "</descrLink"&i&">""<urlLink"&i&">" & rsNewsLink("url_link") & "</urlLink"&i&">"
i=i+1
rsNewsLink.movenext
loop
stringa = stringa & "<link>" & i & "</link>"
end if
'APRO IL RECORDSET PER I DOCUMENTI ALLEGATI
sqlNewsAllegato= "select * from news_allegato where id_news="&rsNews("id")
Set rsNewsAllegato = Server.CreateObject("ADODB.Recordset")
rsNewsAllegato.Open sqlNewsAllegato, cnConn, 1, 3
if not rsNewsAllegato.recordcount=0 then
i=0
do while not rsNewsAllegato.eof
stringa = stringa & "<descrAllegato"&i&">" & rsNewsAllegato("descr_allegato") & "</descrAllegato"&i&">""<urlAllegato"&i&">" & rsNewsAllegato("url_allegato") & "</urlAllegato"&i&">"
i=i+1
rsNewsAllegato.movenext
loop
stringa = stringa & "<allegato>" & i & "</allegato>"
end if
Response.Write stringa
'CHIUDO I RECORDSET
rsNewsFoto.close
set rsNewsFoto = nothing
rsNewsLink.close
set rsNewsLink = nothing
rsNewsAllegato.close
set rsNewsAllegato = nothing
rsNews.movenext
loop
end if
'CHIUDO IL RECORDSET E LA CONNESSIONE AL DB
rsNews.Close
Set rsNews=Nothing
cnConn.Close
Set cnConn=Nothing
%>
[/CODE]
i dati in flash non so come caricarli per il testo ho fatto così...
codice:testo = new Array(); for (k=0; k<=apparray.length; k++) { if (apparray[k].nodeName == "testo") { testo.push(apparray[k].childNodes.toString()); } }

Rispondi quotando