questo è il codice modificato
codice:
<%
Response.ContentType="text/xml"
Response.Expires = -1
%><?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>
<!DOCTYPE elenco [
<!ELEMENT elenco (prova+)>
<!ELEMENT prova (pulsante, titolo, testo, foto)*>
<!ELEMENT pulsante (#PCDATA)>
<!ELEMENT titolo (#PCDATA)>
<!ELEMENT testo (#PCDATA)>
<!ELEMENT foto (#PCDATA)>
]>
<elenco>
<%
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 * FROM dati"
set rs = conn.Execute(SQL)
do until Rs.eof
%>
<prova>
<pulsante><%=rs("pulsante")%></pulsante>
<titolo><%=rs("titolo")%></titolo>
<testo><%=rs("testo")%></testo>
<foto><%=rs("foto")%></foto>
</prova>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</elenco>