Script asp: Coordinate indirizzo da google maps con asp

   difficoltà:  script script script script script

Script simili
19/7/2010


Questo script ci sarà utile per prelevare con uno script lato server in asp le coordinate di un indirizzo, inserito da un utente o preso da database.
Per questo script sono partito da questo esempio in php, che ho in pratica tradotto per essere usato in asp.
Infatti per prelevare le coordinate di un indirizzo facendo il reverse geocoding tramite le api di google maps con php troviamo qui un utile esempio:
Geocoding Addresses with PHP/MySQL

Ora..come fare in asp?
Ecco un esempio di geocoding addresses con asp:

<%
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
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<br>"
end if
%>

Nel caso al primo tentativo desse errore di connessione commentare la riga indicata nel codice.




Commenti


  Mimmo

28/10/2013 9:08:56

Ciao scusami se ti disturbo, lo script per ricavare le coordinate da asp mi sarebbe molto utile, l'ho provato ma non si connette, tu dici che devo commentare la riga ma cosa significa ?? mi potresti inviare a mezzo email lo script completo di commento ??

Grazie

  fabio

28/10/2013 9:13:56

La riga


objXmlDom.setProperty "ServerHTTPRequest", true ' Se non si collega commentare questa riga!


diventa


'objXmlDom.setProperty "ServerHTTPRequest", true ' Se non si collega commentare questa riga!


  Mimmo

5/11/2013 17:09:38

Ho provato a cambiare la riga ma non si connette, esce sempre il messaggio di Errore di Connessione.

  Max

19/12/2013 15:01:43

Non funziona anche commentandola! Ma la testate prima di fare questo articolo?



Lascia un commento


Codice di controllo*:
Nome*:
Email/Link:
Testo*:
 
I campi contrassegnati con * sono obbligatori.