Forum Moderators: open
<?xml version="1.0" encoding="UTF-8"?>
-<OTA_VehAvailRateRS TimeStamp="2014-10-08T14:01:04.271+01:00" PrimaryLangID="EN" Target="Production" Version="2.004" xsi:schemaLocation="http://www.opentravel.org/OTA/2003/05 OTA_VehAvailRateRS.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.opentravel.org/OTA/2003/05">
<Success/>
-<VehAvailRSCore>
-<VehRentalCore ReturnDateTime="2014-10-31T10:00:00Z" PickUpDateTime="2014-10-24T10:00:00Z">
<PickUpLocation Name="Grantley Adams - Airport" LocationCode="2418" CodeContext="XXX"/>
<ReturnLocation Name="Grantley Adams - Airport" LocationCode="2418" CodeContext="XXX"/>
</VehRentalCore>
-<VehVendorAvails>
-<VehVendorAvail>
<Vendor CodeContext="XXX" Division="STOUTES" CompanyShortName="STOUTES" Code="45"/>
-<VehAvails>
-<VehAvail>
-<VehAvailCore Status="Available">
-<Vehicle CodeContext="XXX" Code="IFAR" BaggageQuantity="5" PassengerQuantity="5" DriveType="Unspecified" FuelType="Petrol" TransmissionType="Automatic" AirConditionInd="true">
<VehType DoorCount="5" VehicleCategory="3"/>
<VehClass Size="28"/>
<VehMakeModel Name="Ford Ecosport or similar" Code="IFAR"/>
<PictureURL>pic.jpg</PictureURL>
<VehIdentity VehicleAssetNumber="32349"/>
</Vehicle>
<%
Set objXMLDoc = Server.CreateObject("MSXML2.DOMDocument.3.0")
objXMLDoc.async = False
objXMLDoc.load Server.MapPath("2014 Oct 8 14 1 26VehAvailRatesRQRS.xml")
Dim objChildNodes, strNode
Set objChildNodes = objXMLDoc.documentElement.childNodes
For Each strNode In objChildNodes
Response.Write strNode.nodeName & "<br>"
Next
%>