-- cambios stringbuilder, performance

Site.master.vb

@@ -381,7 +381,10 @@ Partial Class Site
         End If
         HeaderBar.AppendFormat("</li>{0}", ScriptColorGrupoModulo)
         BarraNavegacion.Text = HeaderBar.ToString
-        CargaMenu(MenuHTML)
+        'CargaMenu(MenuHTML)
+        Menu.Text = MenuHTML.ToString
+        MenuHTML.Clear()
+        HeaderBar.Clear()
     End Sub
 
 
@@ -413,9 +416,9 @@ Partial Class Site
         End Select
     End Function
 
-    Private Sub CargaMenu(Texto As StringBuilder)
-        Menu.Text = Texto.ToString
-    End Sub
+    'Private Sub CargaMenu(Texto As StringBuilder)
+    '    Menu.Text = Texto.ToString
+    'End Sub
 
 #Region "Notificaciones"
 
@@ -458,6 +461,7 @@ Partial Class Site
         'OC.Dispose()
 
         LtlMNotificaciones.Text = LtlMNotificaciones.Text & Notificaciones.ToString
+        Notificaciones.Clear()
     End Sub
 
 
@@ -474,7 +478,10 @@ Partial Class Site
 
                 Dim x509 As New X509Certificate2()
                 x509.Import(Data)
-                Return x509.NotAfter.ToShortDateString()
+                Dim Retorno = x509.NotAfter.ToShortDateString()
+                x509 = Nothing
+                Data = Nothing
+                Return Retorno
             End If
 
         Catch ex As Exception