-- cambios para performance

PortalGPS/Penske.aspx.vb

@@ -74,12 +74,16 @@ Partial Class PortalGPS_Penske
 
         Using wc As New HttpClient()
             Try
-                Dim Url = New Uri($"{ClsPaginas.UrlDirecciones}nominatim/reverseMultiple.php")
+                Dim Url = New Uri(String.Format("{0}nominatim/reverseMultiple.php", ClsPaginas.UrlDirecciones))
                 Dim FormStuff = String.Format("formato=json&posiciones={0}", Base64array)
                 Dim content = New StringContent(FormStuff, Encoding.UTF8, "application/x-www-form-urlencoded")
                 Dim response = wc.PostAsync(Url, content).Result
                 Dim result = response.Content.ReadAsStringAsync().Result
                 retorno = JArray.Parse(result)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try