[xanburzum]

  sqlDados = "select * from tMaquina where maquina = " & Request.QueryString("NumMaquina")
                set rsDados = Conex.Execute(sqlDados)
                        empresa = 0
                        if rsDados("empresa") <> "" then
                        empresa = 1
                        sqlEmpresa = "select * from tEmpresa where id = " & rsDados("empresa")
                        set rsEmpresa = Conex.Execute(sqlEmpresa)
                        end if
                        busca_google = rsDados("endereco")
                        busca_google =  "http://maps.google.com/maps/geo?q=" & busca_google & "&output=csv"
                        busca_google = Replace(busca_google, " ","+")
                                                
                                                
                        Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
                        objHTTP.Open "GET", busca_google, false
                        objHTTP.Send
                        texto = objHTTP.ResponseText
                        


                ValorBox = texto
                Coord = Split(ValorBox, ",")
                Lat = Coord(2)
                Lon = Coord(3)