Leggere XML da API GoogleMaps...

[crileone]

Salve, le API di GoogleMaps restituiscono:

<DistanceMatrixResponse>
<status>OK</status>
<origin_address>Via Beato Angelico, 90145 Palermo, Italia</origin_address><destination_address>Via Uditore, 90145 Palermo, Italia</destination_address><row>
<element>
<status>OK</status>
<duration>
<value>149</value>
<text>2 min</text>
</duration>
<distance>
<value>964</value>
<text>1,0 km</text>
</distance>
</element>
</row>
</DistanceMatrixResponse>

ovviamente questa è una risposta dal Server non trattasi di file.xml locale.
Io tramite pagina ASP devo salvare in un dB SQL alcuni item, tipo distanza, durata...
Come faccio?

[cavicchiandrea]

Ciao e benvenuto, a grandi linee

<%
'Inizializziamo il Parser MS XML
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", true 

objXML.async = False

'Carica il file XML o il feed rss in formato xml
strFile= "http://maps.googleapis.com/maps/api/distancematrix/xml?origins="&Request("tuoprimoindirizzo")&"&destinations="&Request("tuosecondoindirizzo")&"&language=it&sensor=false"
objXML.Load (strFile)

Set durata = objXML.getElementsByTagName("duration/text")
Set distanza = objXML.getElementsByTagName("distance/text")
Set result = objXML.getElementsByTagName("status")

if result(0).text = "OK" Then
'qui apri la conessione al db e fai l'insert recuperando i valori cosi:
durata(0).text 
distanza(0).text
else
Response.Write("Errore di compilazione")
End If
    Set distanza = Nothing
    Set durata= Nothing
	Set result = Nothing
%>

[crileone]

Anzitutto grazie:

ho provato e restituisce questo errore:

Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

/sales/provacri.asp, line 20

[cavicchiandrea]

Vediamo il codice e evidenza la riga 20

[crileone]

Dunque il Codice è:

<%
'Inizializziamo il Parser MS XML
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", true

objXML.async = False

'Carica il file XML o il feed rss in formato xml
strFile= "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=via%20Beato%20Angelico%20Palermo,%20Pa lermo%20Italia&destinations=via%20Uditore%20Palerm o,%20Palermo%20Italia&mode=driving&language=it-IT&sensor=false"
objXML.Load (strFile)

Set durata = objXML.getElementsByTagName("duration/text")
Set distanza = objXML.getElementsByTagName("distance/text")
Set result = objXML.getElementsByTagName("DistanceMatrixRespons e/status")

If result(0).text = "OK" Then
'qui apri la conessione al db e fai l'insert recuperando i valori cosi:
durata(0).text
distanza(0).text
Else
'Response.Write("Errore di Compilazione")
End If

Set distanza = Nothing
Set durata= Nothing
Set result = Nothing
%>

La riga 20 è:
If result(0).text = "OK" Then

In poche parole non è corretta la forma result(0).text...

[cavicchiandrea]

Se questa riga non l'avevo modifica un motivo c'è non serve
Set result = objXML.getElementsByTagName("status")

[crileone]

Ciao scusa ma non ho capito.
La riga inizialmente era come adesso l'hai scritta tu ma non funzionava e io ho provato ti chiamo dopo aggiungere anche quella dicitura iniziale del l'albero.
Tu l'hai provata e funziona?
Io non ho Capito cosa fare, potresti per favore riscrivere tutto il codice che devo usare?
Grazie mille

[optime]

cosa c'è da capire?

andrea ha scritto

Set result = objXML.getElementsByTagName("status")

mentre tu hai scritto

Set result = objXML.getElementsByTagName("DistanceMatrixRespons e/status")

[cavicchiandrea]

<%
'Inizializziamo il Parser MS XML
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", true

objXML.async = False

'Carica il file XML o il feed rss in formato xml
strFile= "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=via+Beato+Angelico+Palermo+Italia&destinations=via+Uditore+Palermo+Italia&mode=driving&language=it-IT&sensor=false"
objXML.Load (strFile)

Set durata = objXML.getElementsByTagName("duration/text")
Set distanza = objXML.getElementsByTagName("distance/text")
Set result = objXML.getElementsByTagName("status")

If result(0).text = "OK" Then
'qui apri la conessione al db e fai l'insert recuperando i valori cosi:
durata(0).text
distanza(0).text
Else
'Response.Write("Errore di Compilazione")
End If

Set distanza = Nothing
Set durata= Nothing
Set result = Nothing
%>

[crileone]

Ciao e ancora grazie.
Dunque l'errore è sempre lo stesso sulla stessa riga.
Io avevo aggiunto la foglia iniziale del l'albero ma avevo provato anche come dicesti tu.
In poche parole aspetta un oggetto alla chiamata result(0).text

Tu lo hai provato?