Recuperare Accuracy dalle api di google oltre le coordinate

[marcopaolo79]

Ciao a tutti ho trovato uno script asp che passandogli i dati via cap etc ti restituisce le coordinate satellitari tramite api di google...

lo script è questo:

Indirizzo="viale monza, 45"
CAP="20124"
Localita="Milano"
Prv="MI"
Stato="Italy"

Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.setProperty "ServerHTTPRequest", true ' Se non si collega commentare questa riga!
objXmlDom.async = False


if objXmlDom.Load("http://maps.google.com/maps/geo?output=xml&key=abcdefg&q="&Server.URLEncode(Indirizzo)&", "&CAP&" "&Server.URLEncode(Localita)&" ("&Prv&"), "&Stato) then
	Set codice = objXmlDom.getElementsByTagName("Response/Status/code")
	if codice(0).text=200 then
		Set lineacoord = objXmlDom.getElementsByTagName("Response/Placemark/Point/coordinates")
		array_dati=Split(lineacoord(0).text,",")
		lng=array_dati(0)
		lat=array_dati(1)
		
		response.write "OK - "&Indirizzo&", "&CAP&" "&Localita&" ("&Prv&"), "&Stato&" - lng: "&lng&" lat: "&lat& " - precisione: " & precisione
	else
		response.write "KO - "&Indirizzo&", "&CAP&" "&Localita&" ("&Prv&"), "&Stato
	end if

	Set codice = Nothing
	Set lineacoord = Nothing
	Set objXmlDom = Nothing	
else
	response.write "Errore di connessione
"
end if

ottimo e funzionante, ma se io avessi bisogno anche del parametro AddressDetails Accuracy??

ho provato così ma non mi funziona:

Set accuracy = objXmlDom.getElementsByTagName("Response/Placemark/AddressDetails Accuracy")
precisione = accuracy(0).text

ho provato anche a mettere Response/Placemark/AddressDetails/Accuracy ma niente uguale...

qualcuno sa aiutarmi?

grazie a tutti

[lucavizzi]

Prova a stampare a video quello che ricevi, rigo rosso.

Indirizzo="viale monza, 45"
CAP="20124"
Localita="Milano"
Prv="MI"
Stato="Italy"

Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.setProperty "ServerHTTPRequest", true ' Se non si collega commentare questa riga!
objXmlDom.async = False


if objXmlDom.Load("http://maps.google.com/maps/geo?output=xml&key=abcdefg&q="&Server.URLEncode(Indirizzo)&", "&CAP&" "&Server.URLEncode(Localita)&" ("&Prv&"), "&Stato) then
	Set codice = objXmlDom.getElementsByTagName("Response/Status/code")
	if codice(0).text=200 then
                            response.write objXmlDom 
		Set lineacoord = objXmlDom.getElementsByTagName("Response/Placemark/Point/coordinates")
		array_dati=Split(lineacoord(0).text,",")
		lng=array_dati(0)
		lat=array_dati(1)
		
		response.write "OK - "&Indirizzo&", "&CAP&" "&Localita&" ("&Prv&"), "&Stato&" - lng: "&lng&" lat: "&lat& " - precisione: " & precisione
	else
		response.write "KO - "&Indirizzo&", "&CAP&" "&Localita&" ("&Prv&"), "&Stato
	end if

	Set codice = Nothing
	Set lineacoord = Nothing
	Set objXmlDom = Nothing	
else
	response.write "Errore di connessione
"
end if