<% xmlURL = "http://api.local.yahoo.com/MapsService/V1/geocode?appid=Sma rtStart&street=3821%20Plantation%20Ln%20&zip=75035" '// Create the XMLHTTP object Set xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP") '// Fire off the request! xmlHTTP.Open "GET", xmlURL xmlHTTP.Send
'// Load the XML parser Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM") xmlDoc.Async = False xmlDoc.loadXML (xmlHTTP.ResponseXML.xml) '// Set the Result node Set arrResult = xmlDoc.selectSingleNode("//ResultSet/Result") '// Show Latitude and Longitude Response.Write "Latitude" & arrResult.selectSingleNode("Latitude").Text Response.Write "Longitude" & ArrResult.selectSingleNode("Longitude").Text '// Unload XML parser Set xmlDoc = Nothing
'// Destroy the object Set xmlHTTP = Nothing
%> |