<%
Server.ScriptTimeout = 60000
dim oHTTP, oDoc, oNodesList, oNode
set oHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oHTTP.send Coordenadas
set oDoc = oHTTP.responseXML
if len(oDoc.selectSingleNode("/CAMINHO").text) <> 0 then cRua=oDoc.selectSingleNode("/CAMINHO").text