Ciao a tutti.
Devo creare tramite uno script questo xml che serve per uno script flash.
************************************************** **********
<?xml version="1.0" encoding="windows-1250"?>
<images>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
<img>public/headimages/cane.jpg</img>
<link></link>
</images>
<parameters><time>10</time></parameters>
************************************************** *******
Il codice che utilizzo è il seguente
Set xmlDoc = Server.CreateObject("msxml2.DOMDocument")
Set objConn=Server.CreateObject("ADODB.Connection")
set objRs=server.CreateObject("ADODB.Recordset")
strSql="Select IMG_1, DESCRIZIONE from galleria "
xmlContent=""
objConn.Open strConnDb
objRs.Open strSql,objConn
'Creo il Documento XML
if not objRs.EOF then
xmlContent = "<?xml version=""1.0"" encoding=""windows-1250""?><parameters><images>"
'For x = 1 To Request.Form.count()
i=0
while not objRs.EOF
i=i+1
xmlContent = xmlContent & "<img>public/headimages/"&objRs("IMG_1")&"</img>"
objRs.MoveNext
wend
'Next
xmlContent = xmlContent & "</images><time>10</time></parameters>"
else
xmlContent = "<?xml version=""1.0"" encoding=""windows-1250""?><images>"
xmlContent = xmlContent & "</images><time>10</time></parameters>"
end if
objRs.close
objConn.close
success = xmlDoc.loadXML(xmlContent)
If success = True Then
response.write Server.HTMLEncode(xmlContent)&"
"
Else
Response.Write "Error Code: " & xmlDoc.ParseError & "
"
Response.Write "Error Description: " & xmlDoc.ParseError.reason & "
"
Response.Write "Error File Position: " & xmlDoc.ParseError.filepos & "
"
Response.Write "Error Line: " & xmlDoc.ParseError.line & "
"
Response.Write "Error Line Position: " & xmlDoc.ParseError.linepos & "
"
Response.Write "Error Source Text: " & xmlDoc.ParseError.srcText & "
"
Response.Write "Impossibile caricare il File XML...
" & Server.HTMLEncode(xmlContent)
End If
percorso="data.xml"
response.write "
"&Server.Mappath(percorso)
xmlDoc.save Server.Mappath(percorso)
************************************************** **********
Il problema è che nn mi crea l'XML e il sistema mi restituisce questo messaggio :
Error Code: -1072896683
Error Description: Nei documenti XML è consentito un solo elemento di primo livello.
Error File Position: 102
Error Line: 1
Error Line Position: 103
Purtroppo lo script flash nn funziona se l'XML nn ha lo stesso formato di quello sopra....
Come posso fare?
Qualcuno ha già incontrato un problema simile?
Grazie per ogni eventuale aiuto.
Roberto
Rispondi quotando
