creare un file xml

[agenti]

Sto cercando di adattare un file xml al mio db....

in poiche parole devo riuscire a creare un file xml valido in modo da essere letto da un file in remoto.

il problema è che con vbscript mi visualizza esclusivamente i dati in formato testo e non crea un documento xml compatibile anche se la pagina ha estensione asp.

<?xml version="1.0" encoding="utf-8"?>
<%response.write "<countrydata>" &"
"
response.write "<" & "state" & "id=" & "'outline_color'" & ">" & "
"
response.write "<color>ffffff</color>" &"
"
response.write "<opacity>0</opacity>" &"
"
response.write "</state>" &"
" & "
"
response.write "<state id=""default_point"">" & "
"
response.write"<color>ffcc00</color>" &"
"
response.write "<size>5</size>" &"
"
response.write "</state>" &"
"
response.write "<state id=""default_color"">" & "
"
response.write "<color>ce0000</color>" &"
"
response.write "</state>" &"
"
response.write "<state id=""background_color"">" &"
"
response.write "<color>ffffff</color>" &"
"
response.write "</state>" &"
"
response.write "<state id=""first_zoom"">"
response.write"<data>45.41,8.91</data>" &"
"
response.write "</state>" &"
"
response.write "<state id=""zoom_out_scale"">" &"
"
response.write "<data>200</data>" & "
"
response.write "</state>" & "
"
%>

<%
Set rec = Server.CreateObject("ADODB.Recordset")
SQL="SELECT TOP 20 punti.name, punti.size, punti.loc FROM punti;"
rec.open SQL, conn
do until rec.eof
%>

<%response.write "<state id=""point"">" & "
"
response.write "<name>"&REC("NAME")&"</name>" & "
"
response.write "<size> "&REC("SIZE")&"</size>" & "
"
response.write "<loc>"&REC("LOC")&"</loc>" & "
"
response.write "</state>" & "
"

REC.MOVENEXT
LOOP
rec.close
set rec=Nothing
%>

</countrydata>

-----

Di seguito quello che visualizzo con IE 6.0:

ffffff
0



ffcc00
5


ce0000


ffffff

45.41,8.91


200


Abbiategrasso
1
45.41,8.91


Aci Catena
1
37.6,15.14


Acquaviva delle Fonti
1
40.89,16.84


Acqui Terme
1
44.68,8.46


Acri
1
39.49,16.38

[agenti]

ho trovato uno script per creare dei feed rss e l'ho adattato:

ma il risukltato è uan pagiana bianca




<%

strxml = "<?xml version=""1.0"" encoding=""UTF-8""?>"
strxml = "<countrydata>"

Set rec = Server.CreateObject("ADODB.Recordset")
SQL="SELECT TOP 20 punti.name, punti.size, punti.loc FROM punti;"
rec.open SQL, conn
Do while not rec.eof

strxml = strxml & "<state id=""point"">"
strxml = strxml & "<name><![CDATA[" & REC("NAME") & "]]></name>"
strxml = strxml & "<size><![CDATA[" & REC("SIZE") & "]]></size>"
strxml = strxml & "<loc><![CDATA["& REC("LOC") & "]]></loc>"
strxml = strxml & "</state>"
rec.movenext
Loop

strxml = "</countrydata>"
' per dare l’impostazione al tipo di file in output su XML
response.ContentType = "text/xml"
response.write strxml

'chiusura della connessione
rec.close
set rec=nothing
Conn.Close
set Conn=nothing
%>

[agenti]

ho ricreato la cosa in modo più pulito...
ma mi risponde esclusivamente in formato testo...
nessuna formattazione xml...
per quanto il content.Type sia settato a Text/xml



<%

response.ContentType="Text/xml"

'Imposto il mio documento XML
'Specificando titolo, descrizione e link del mio servizio di News
response.write "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
response.write "<countrydata>"

Set rec = Server.CreateObject("ADODB.Recordset")
SQL="SELECT TOP 20 punti.name, punti.size, punti.loc FROM punti;"
rec.open SQL, conn

'Lancio un ciclo che scorre tutti i records trovati...
Do until rec.eof
response.write "<state id='point'>"
response.write "<name>" & REC("NAME") & "</name>"
response.write "<size>" & Rec("size") & "</size>"
response.write "<loc>"& REC("LOC") & "</link>"
response.write "</state>"

rec.movenext
Loop

'Chiudo il documento XML
response.write "</countrydata>"

'Chiudo tutto
rec.close
set rec=nothing
Conn.Close
set Conn=nothing
%>

[agenti]

nessuno sa aiutarmi ?? up...