xml da asp

[gianni80]

Salve, io vorrei generare un file xml utilizzando asp che va a prendere fonti dal db access. Ho provato a far generare il xml con questo codice asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'assegno il nome al file XML che voglio creare
Dim filename
filename = "DB_to_XML.xml"

'verifico se esiste già un file XML con lo stesso nome
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'se esiste eliminalo
if fso.FileExists(Server.MapPath(filename)) then
fso.DeleteFile(Server.MapPath(filename))
end if
Set fso = Nothing

Dim cn, rs, sql

set cn =server.CreateObject("adodb.connection")
cn.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("images.mdb")


'seleziono tutti i records della tabella myTable
sql = "SELECT * FROM pic"
Set rs = cn.Execute(sql)

'salvo il recordset in un file XML
rs.Save Server.MapPath(filename), 1

'chiudo il recordset, la connessione al database e libero le risorse
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

'creo il link per visualizzare il file XML appena creato
Response.Write("Per visualizzare il file XML appena creato <a href="&_
filename&">clicca qui</a>.")
%>

il problema è che mi genera un xl no semplice come vorrei ma pieno di attributi etc etc, vorrei averlo tipo così:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<images>
<pic>
<image></image>
<caption></caption>
<thumbnail></thumbnail>
</pic>
</images>

Come potrei fare... grazie

[santino83_11_04]

che xml ti genera? leggiti gli attributi invece dei nodi oppure l'xml te lo fai a mano te (qui un esempio: http://asp.html.it/articoli/leggi/698/feed-rss-in-asp/)

[gianni80]

mi genera un file tipo così:

<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='ID' rs:number='1'>
<s:datatype dt:type='int' dt:maxLength='4' rsrecision='10' rs:fixedlength='true' rs:maybenull='false'/>
</s:AttributeType>
<s:AttributeType name='image' rs:number='2' rs:nullable='true' rs:maydefer='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='1073741823' rs:long='true'/>
</s:AttributeType>
<s:AttributeType name='caption' rs:number='3' rs:nullable='true' rs:maydefer='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='1073741823' rs:long='true'/>
</s:AttributeType>
<s:AttributeType name='thumbnail' rs:number='4' rs:nullable='true' rs:maydefer='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='1073741823' rs:long='true'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row ID='32' image='01.jpg' caption='nheijh uoheite oihi okhji ièojiè jqihjkhjn oktjija oitjoianhoian oitjhihtjitej ej a itjhjoia '
thumbnail='02_m.jpg'/>
</rs:data>
</xml>

quando io poi lo vorrei semplice in questo modo:

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<images>
<pic>
<image></image>
<caption></caption>
<thumbnail></thumbnail>
</pic>
</images>

mi puoi illuminare?

[santino83_11_04]

mazza che xml ma il metodo save lo usi con IE? ho appena letto da una parte che dice che con IE non funziona...mah

cmq, hai letto il link che ti ho postato? segui alla lettera la storia per creare l'xml e ottieni quello che vuoi....

senza controlli di errore:

rs.open "select image,caption, thumbnail from tabella",connessione,1,1

xml="<?xml version=""1.0"" encoding=""utf-8"" standalone=""yes""?><images>"

while not rs.eof

xml=xml& "<pic>" &_
       "<image>" & rs("image") & "</image>" &_
       "<caption>" & rs("caption") & "</caption>" &_
       "<thumbnail>" & rs("thumbnail") & "</thumbnail>" &_
       "</pic>"

rs.movenext
wend

xml=xml& "</images>"

response.ContenetType="text/xml"
response.write xml

[gianni80]

ciao scusami se ti ripostoi il codice, l'ho fatto in questo modo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("images.mdb")
dim rs
set rs=server.CreateObject("adodb.recordset")
'rs.activeConnection=Connessione
rs.open "select image,caption, thumbnail from pic",connessione,1,1

xml="<?xml version=""1.0"" encoding=""utf-8"" standalone=""yes""?><images>"

while not rs.eof

xml=xml& "<pic>" &_
"<image>" & rs("image") & "</image>" &_
"<caption>" & rs("caption") & "</caption>" &_
"<thumbnail>" & rs("thumbnail") & "</thumbnail>" &_
"</pic>"

rs.movenext
wend

xml=xml& "</images>"

response.ContentType="text/xml"
response.write xml

rs.close
'libero dalla memoria del server tutti ii dati relativi al recordset
set rs= nothing
Connessione.close
set Connessione= nothing
%>

mi dà un errore

Carattere non valido nel contenuto di testo. Errore durante l'elaborazione della risorsa

mi potresti aiutare a risolverlo grazie

[santino83_11_04]

e dov'è che ti da errore? a che linea?