creare XML da DB Access

[masaccio]

Buongiorno,
ho bisogno di un aiuto, ho un DB per delle NEWS strutturato TabellaNews con campi Titolo, Sottotitolo, Testo. Ora vorrei fare un asp che crei un XML.
Questo è quello che sono riuscito a fare ma non funzia potete aiutarmi please
<%@LANGUAGE="VBSCRIPT"%>
<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>


<News>
<%
dim adoConnect
dim adoRecordset

Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/news.mdb")

Set adoRecordset = adoConnect.Execute("SELECT * FROM TabellaNews")

Do while not adoRecordset.EOF
response.write "<Titolo>" + adoRecordset("Titolo") + "</Titolo>"


adoRecordset.MoveNext
Loop

adoRecordset.Close
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing

%>
</News>

[Santino83_02]

response.write "<Titolo>" & adoRecordset("Titolo") & "</Titolo>"

[masaccio]

grazie mille, ora mi da i titoli e per mettere in ordine il flusso che mi dia anche Sottotitolo e Testo?

[Santino83_02]

allora,

pensa ad una struttura xml. diciamo che tu la voglia:

<root>
   <news>
       <some_el></some_el>
       ...
       <items>
            <item>
                <title>..</title>
                 <subtitle>..</subtitle>
                <text>..</text>
             </item>
            <item>
            ...
            </item>
       </items>
   </news>
</root>

e poi lo scrivi:

[solo la parte di item]

while not rs.eof

response.write "<item>"
response.write "<title><![CDATA[" & rs("titolo") & "]]></title>"
response.write "<subtitle><![CDATA[" & rs("sottotitolo") & "]]></subtitle>"
response.write "<text><![CDATA[" & rs("testo") & "]]></text>"
response.write "</item>"

rs.movenext
wend

[wallrider]

Però non puoi alzarti da tavola finchè non finisci la pappa

[masaccio]

grazie mille farò un po' di prove

[masaccio]

mi blocca il caricamento della pagina cosa sbaglio
<%@LANGUAGE="VBSCRIPT"%>
<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="iso-8859-1"?>


<News>
<%
dim adoConnect
dim adoRecordset

Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/news.mdb")

Set adoRecordset = adoConnect.Execute("SELECT * FROM TabellaNews")

Do while not adoRecordset.EOF

response.write "<item>"
response.write "<title><![CDATA[" & rs("Titolo") & "]]></title>"
response.write "<subtitle><![CDATA[" & rs("Sottotitolo") & "]]></subtitle>"
response.write "<text><![CDATA[" & rs("Testo") & "]]></text>"
response.write "</item>"


adoRecordset.MoveNext
Loop

adoRecordset.Close
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing

%>
</News>

[Santino83_02]

osserva la differenza tra quello che c'è scritto dopo il do while not e quello che c'è dopo i response.write

[masaccio]

ho modificato così
<%
dim adoConnect
dim adoRecordset

Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/news.mdb")

Set adoRecordset = adoConnect.Execute("SELECT * FROM TabellaNews")

while not rs.eof

response.write "<item>"
response.write "<title><![CDATA[" & rs("titolo") & "]]></title>"
response.write "<subtitle><![CDATA[" & rs("sottotitolo") & "]]></subtitle>"
response.write "<text><![CDATA[" & rs("testo") & "]]></text>"
response.write "</item>"

rs.movenext
wend


adoRecordset.Close
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing

%>

ma mi dice

È previsto un valore letterale stringa, ma non sono state trovate virgolette aperte. Errore durante l'elaborazione della ri...

<font face="Arial" size=2>
-------------------------^

abbi pazienza pls

[Santino83_02]

il non sapere quello che si sta facendo fa perdere una miriade di tempo... osserva la differenza tra queste due righe:

Set adoRecordset = adoConnect.Execute("SELECT * FROM TabellaNews")

while not rs.eof

e trai le tue conclusioni...però ti suggerisco di capire quello che stai facendo piuttosto che pensare "ok scopiazzo rs dappertutto e funzionerà" almeno non lo farai piu lo stesso errore