Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

pulling information

Status
Not open for further replies.

crmpicco

Programmer
Nov 29, 2004
66
GB
How do i pull info from this?

Syntax anyone?

cheers


<%

'Build XML on fly then save to log traces

set objxml=server.CreateObject ("Microsoft.XMLDOM")
set element=objxml.createelement("Passenger_Search_Query")
set node=objxml.appendchild(element)
set element=objxml.createelement("SearchType")
element.text="Express"
set node=objxml.documentelement.appendchild(element)
set element=objxml.createelement("Master_Detail")
set elementchild=objxml.createelement("CompanyId")
elementchild.text="BT"
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("CorporateId")
elementchild.text="Beaver"
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("UserId")
elementchild.text="1234"
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("SessionId")
elementchild.text="Rubbish"
set node=element.appendchild(elementchild)
set node=objxml.documentelement.appendchild(element)
set el=objxml.createelement("Trip")

set element=objxml.createelement("RequestedSegmentoneway")
set elementchild=objxml.createelement("OriginAndDestination")

set elementchild1=objxml.createelement("DeparturePoint")
elementchild1.text="GLA"
set node=elementchild.appendchild(elementchild1)
set elementchild1=objxml.createelement("ArrivalPoint")
elementchild1.text="LHR"
set node=elementchild.appendchild(elementchild1)
set elementchild1=objxml.createelement("ViaPoint")
elementchild1.text=""
set node=elementchild.appendchild(elementchild1)
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("AirlineList")
set elementchild1=objxml.createelement("Code")
elementchild1.text="BA"
set node=elementchild.appendchild(elementchild1)
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("DateAndTimeDetails")
set elementchild1=objxml.createelement("Date")
elementchild1.text="01DEC04"
set node=elementchild.appendchild(elementchild1)
set elementchild1=objxml.createelement("Time")
elementchild1.text=""
set node=elementchild.appendchild(elementchild1)
set node=element.appendchild(elementchild)
set node=el.appendchild(element)

set element=objxml.createelement("RequestedSegmentReturn")
set elementchild=objxml.createelement("OriginAndDestination")
set elementchild1=objxml.createelement("DeparturePoint")
elementchild1.text="LHR"
set node=elementchild.appendchild(elementchild1)
set elementchild1=objxml.createelement("ArrivalPoint")
elementchild1.text="GLA"
set node=elementchild.appendchild(elementchild1)
set elementchild1=objxml.createelement("ViaPoint")
elementchild1.text=""
set node=elementchild.appendchild(elementchild1)
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("AirlineList")
set elementchild1=objxml.createelement("Code")
elementchild1.text="BA"
set node=elementchild.appendchild(elementchild1)
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("DateAndTimeDetails")
set elementchild1=objxml.createelement("Date")
elementchild1.text="15DEC04"
set node=elementchild.appendchild(elementchild1)
set elementchild1=objxml.createelement("Time")
elementchild1.text=""
set node=elementchild.appendchild(elementchild1)
set node=element.appendchild(elementchild)
set node=el.appendchild(element)
set node=objxml.documentelement.appendchild(el)
set element=objxml.createelement("PassengerPref")
set elementchild=objxml.createelement("Adult")
elementchild.text=1
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("Child")
elementchild.text=0
set node=element.appendchild(elementchild)
set elementchild=objxml.createelement("Infant")
elementchild.text=0
set node=element.appendchild(elementchild)
set node=objxml.documentelement.appendchild(element)
set element=objxml.createelement("Cabin")
element.text="Y"
set node=objxml.documentelement.appendchild(element)
set element=objxml.createelement("SearchCriteria")
element.text="R"
set node=objxml.documentelement.appendchild(element)
set element=objxml.createelement("FareType")
element.text="AF"
set node=objxml.documentelement.appendchild(element)

objxml.save "C:\Inetpub\
%>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top