• Jueves 2 de Mayo de 2024, 00:30

Autor Tema:  Ordenar Un Xml Con Asp  (Leído 2234 veces)

blueangelzion

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Ordenar Un Xml Con Asp
« en: Viernes 22 de Septiembre de 2006, 18:15 »
0
Hola...

Tengo un problema estoy sacando informacion que es un XML usando MSXML2.DOMDocument  y luego lo tengo todo en arrays de nodos pero no se como puedo ordenar uno de mis datos que es el precio usando ASP

asi es como saco la informacion de mi XML

Set SoapRequest = Server.CreateObject("MSXML2.XMLHTTP")
Set myXML = Server.CreateObject("MSXML2.DOMDocument")    

SoapURL = "http://services.eventinventory.com/webservices/ticketsearch.asmx/ListTickets?APPCLIENT_ID=FDFAA3BD97B745ECBBB88873F1A462F0&PRODUCTION_ID="&ProductionID&"&EVENT_ID=&VENUEID_ID=&EVENT_DATE="&E_DATE&""


SoapRequest.Open "GET", SoapURL , False      
SoapRequest.Send()
myXML.loadxml(SoapRequest.responseText)

set objNodeList = myXML.documentElement.selectNodes("//row")

Dim objNodeList, arrtid(), arravailable(), arredate(), arrbid(), arrbroker(), arrseatsection(), arrseatrow(), arrseatfrom(), arrseatthru(), arrseatdescription(), arrtprice(), arrbprice()

ReDim arrtid(objNodeList.length)
ReDim arravailable(objNodeList.length)
ReDim arredate(objNodeList.length)
ReDim arrbid(objNodeList.length)
ReDim arrbroker(objNodeList.length)
ReDim arrseatsection(objNodeList.length)
ReDim arrseatrow(objNodeList.length)

ReDim arrseatfrom(objNodeList.length)
ReDim arrseatthru(objNodeList.length)
ReDim arrseatdescription(objNodeList.length)
ReDim arrtprice(objNodeList.length)
ReDim arrbprice(objNodeList.length)


i = 0
For Each mainNode In objNodeList
   arrtid(i) = mainNode.Attributes.GetNamedItem("TID").Value
   arravailable(i) = mainNode.Attributes.GetNamedItem("Available").Value
   arredate(i) = mainNode.Attributes.GetNamedItem("EDATE").Value         
   arrbid(i) = mainNode.Attributes.GetNamedItem("BID").Value
   arrbroker(i) = mainNode.Attributes.GetNamedItem("Broker").Value
   arrseatsection(i) = mainNode.Attributes.GetNamedItem("SeatSection").Value
   arrseatrow(i) = mainNode.Attributes.GetNamedItem("SeatRow").Value
   arrseatfrom(i) = mainNode.Attributes.GetNamedItem("SeatFrom").Value
   arrseatthru(i) = mainNode.Attributes.GetNamedItem("SeatThru").Value
   arrseatdescription(i) = mainNode.Attributes.GetNamedItem("SeatDescription").Value
   arrtprice(i) = mainNode.Attributes.GetNamedItem("T_Price").Value
   arrbprice(i) = mainNode.Attributes.GetNamedItem("B_Price").Value
   i = i + 1
next


Y necesito ordenar por T_Price de mayor a menor y al reves espero alguien sepa algo sobre esto... Gracias