-Archivo lista_satelites.asp
Código :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim oConn, oRS, sSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("BBDD\Diesl.mdb")
Set oRS = Server.CreateObject("ADODB.Recordset")
sSQL = "Select ID_Sat, Nombre_Sat, Long_Sat from Satelites Order by ID_Sat"
Set oRS = oConn.Execute(sSQL)
Response.Write("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
Response.Write("<Satelites>")
Do While not oRS.Eof
Response.Write("<Satelite>")
Response.Write("<ID_Sat>"&oRS("ID_Sat")&"</ID_Sat>")
Response.Write("<Nombre_Sat>"&oRS("Nombre_Sat")&"</Nombre_Sat>")
Response.Write("<Long_Sat>"&oRS("Long_Sat")&"</Long_Sat>")
Response.Write("</Satelite>")
oRS.MoveNext
Loop
oConn.close
Response.Write("</Satelites>")
%>-Resulado XML generado por la pagina ASP:
Código :
<?xml version="1.0" encoding="iso-8859-1"?><Satelites><Satelite><ID_Sat>1</ID_Sat><Nombre_Sat>Express AM 22</Nombre_Sat><Long_Sat>53</Long_Sat></Satelite><Satelite><ID_Sat>2</ID_Sat><Nombre_Sat>Europe STAR1</Nombre_Sat><Long_Sat>45</Long_Sat></Satelite><Satelite><ID_Sat>3</ID_Sat><Nombre_Sat>Turksat 1C</Nombre_Sat><Long_Sat>42</Long_Sat></Satelite><Satelite><ID_Sat>4</ID_Sat><Nombre_Sat>Eurasiasat</Nombre_Sat><Long_Sat>42</Long_Sat></Satelite>...
(El resultado es correcto)
-Codigo usado en flash para cargar el XML:
Código :
var miXml:XML = new XML();
miXml.onLoad = function(){
trace(this);
}
miXml.load("lista_satelites.asp");Y como era de esperar, despues de todo esto, no me muestra nada.
Ande esta el error??
Gracias por adelantao pipol!
Saludos!
