Script asp: Coordinate indirizzo da google maps con asp

difficoltà:

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
%>