Prova questo codice
codice:
Lon=Request.Item ("Lon")
Lat=Request.Item ("Lat")
Lon=7.860492
Lat=45.514734
if getAltitudine(Lon,Lat,altitudine) then
Response.Write "altitudine=" & altitudine
else
Response.Write "Errore"
end if
function getAltitudine(byVal Lon, byVal Lat, byRef altitudine)
URL = "http://gisdata.usgs.gov/xmlwebservices2/elevation_service.asmx/getElevation"
Lon=Replace(Lon,",",".")
Lat=Replace(Lat,",",".")
POST_DATA = "X_Value=" & Lon & "&Y_Value=" & Lat & "&Elevation_Units=METERS&Source_Layer=-1&Elevation_Only=true"
Set objXMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
Set objXML = Server.CreateObject("msxml2.DOMDocument.4.0")
objXMLHttp.open "POST", URL, false
objXMLHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHttp.send (POST_DATA)
if (objXMLHttp.status<>"200") then
'errore
getAltitudine=false
else
altitudine=objXMLHttp.ResponseXML.selectSingleNode("double").text
getAltitudine=true
end if
end function
ciao