xml request

**agenti** · 05-02-2006, 20:35

sto cercando di inviare come body dell'invio alcuni parametri xml
secondo voi la procedura in vbscript è correttà?

al momento da errore... invece in js funziona.

<%
Buffer = "<CommandList>" &_
"<StartRouting>"&_
"<XmlLoginId>1D1GK4FEF8M9RZQ9</XmlLoginId>" &_
"<LoginId>1D1GK4FEF8M9RZQ9</LoginId>" &_
"<Mode>plane</Mode>" &_
"<Origin>" &_
"<Descriptor>LTN</Descriptor>" &_
"<Type>airportcode</Type>" &_
"<ResolutionTypeList>" &_
"<ResolutionType>citycode</ResolutionType>" &_
"<ResolutionType>airportcode" & "</ResolutionType>" &_
"</ResolutionTypeList>" &_
"<Radius>" & "180000" & "</Radius>" &_
"</Origin>" &_
"<Destination>" &_
"<Descriptor>MAD</Descriptor>" &_
"<Type>airportcode</Type>" &_
"<Radius>180000</Radius>" &_
"</Destination>" &_
"<OutwardDates>" &_
"<DateOfSearch>27/02/2006-10:00</DateOfSearch>" &_
"<DepartDateFilter>" &_
"<DiscardBefore>25/02/2006-10:00</DiscardBefore>" &_
"<DiscardAfter>29/02/2006-10:00</DiscardAfter>" &_
"</DepartDateFilter>" &_
"<ArriveDateFilter>" &_
"<DiscardBefore>25/02/2006-10:00</DiscardBefore>" &_
"<DiscardAfter>29/02/2006-10:00</DiscardAfter>" &_
"</ArriveDateFilter>" &_
"</OutwardDates>" &_
"<MaxChanges>1</MaxChanges>" &_
"<MaxHops>2</MaxHops>" &_
"<SupplierList>" &_
"<Supplier>easyjet</Supplier>" &_
"</SupplierList>" &_
"<RealOperatorFilter>" &_
"<Type>select</Type>" &_
"<AllowPartial>false</AllowPartial>" &_
"<OperatorList>" &_
"<Operator>FR</Operator>" &_
"<Operator>U2</Operator>" &_
"</OperatorList>" &_
"</RealOperatorFilter>" &_
"<VendingOperatorFilter>" &_
"<Type>select</Type>" &_
"<AllowPartial>false</AllowPartial>" &_
"<OperatorList>" &_
"<Operator>FR</Operator>" &_
"<Operator>U2</Operator>" &_
"</OperatorList>" &_
"</VendingOperatorFilter>" &_
"<Timeout>40</Timeout>" &_
"<TravelClass>Economy With Restrictions</TravelClass>" &_
"<TravellerList>" &_
"<Traveller>" &_
"<Age>30</Age>" &_
"</Traveller>" &_
"</TravellerList>" &_
"<IncrementalResults>true</IncrementalResults>" &_
"</StartRouting>" &_
"</CommandList>"
%>
<%
response.write buffer
'Dichiaro la variabile
Dim objXMLHttp

'Instanzio l'oggetto XMLHttp
Set objXMLHttp = Server.CreateObject("Msxml2.xmlhttp")

'Costruisco e invio la richiesta
objXMLHttp.Open "POST", "http://miosito.com/xml", false
objXMLHttp.Send (buffer)

'Stampo la risposta
Response.Write(objXMLHttp.responseText)

'Faccio pulizia
Set objXMLHttp = Nothing
%>

**wegawhite** · 05-02-2006, 23:48

http://jibbering.com/2002/4/httprequest.html

**agenti** · 06-02-2006, 00:52

bhe con javascript lo avevo già fatto...
vorrei provare con vbscript.

**fraude** · 06-02-2006, 09:28

Originariamente inviato da agenti
bhe con javascript lo avevo già fatto...
vorrei provare con vbscript.

Vedi questo se va bene... lo avrò postato in decine di discussioni...

http://www.w3schools.com/xml/xml_http.asp

**agenti** · 06-02-2006, 09:53

grazie .. ma ho sempre un dubbio sintattico:
i parametri da inviare dove si inseriscono

xmlhttp.send(QUI?????)
ad esempio
buffer="<CommandList>" +
"<CheckRouting>" +
"<XmlLoginId>1D1GK4FEF8M9RZQ9</XmlLoginId>" +
"<LoginId>1D1GK4FEF8M9RZQ9</LoginId>" +
"<RoutingId>NPAPI62BXIY6L8DO</RoutingId>" +
"</CheckRouting>" +
"</CommandList>"

xmlhttp.send(Buffer)

funzione completa...

<script type="text/javascript">
var xmlhttpfunction loadXMLDoc(url)
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP")
if (xmlhttp)
{
xmlhttp.onreadystatechange=xmlhttpChange
xmlhttp.open("GET",url,true)
xmlhttp.send()
}
}
</script>

**fraude** · 06-02-2006, 09:57

codice:

<html>
<head>
<script type="text/vbscript">
dim xmlhttp

function loadXMLDoc(url)
set xmlhttp=createObject("Microsoft.XMLHTTP")
xmlhttp.onreadystatechange=getRef("state_Change")
call xmlhttp.open("GET",url,true)
call xmlhttp.send()
end function

function state_Change()
if xmlhttp.readyState=4 then
  if xmlhttp.status=200 then
    alert("XML data OK")
    document.getElementById("A1").innerText=xmlhttp.status
    document.getElementById("A2").innerText=xmlhttp.statusText
    document.getElementById("A3").innerText=xmlhttp.responseText
  else
    alert("Problem retrieving XML data:" & xmlhttp.statusText)
  end if
end if
end function

</script>
</head>

<body onload="loadXMLDoc('note.xml')">
<h2>Using the HttpRequest Object</h2>



status:
<span id="A1"></span>
</p>



status text:
<span id="A2"></span>
</p>



response:

<span id="A3"></span>
</p>

</body>
</html>

**agenti** · 06-02-2006, 10:25

fatto...

**fraude** · 06-02-2006, 12:15

... prego !

**agenti** · 06-02-2006, 14:16

grazie... pardon.

Discussione: xml request

Strumenti discussione

Ricerca discussione

Visualizza

xml request

Permessi di invio