-- corrección

Site.master.vb

@@ -120,6 +120,7 @@ Partial Class Site
 
                     scriptoppner.Visible = True
                     divMenu.Visible = False
+                    divMenuB.Visible = False
                     RegistraScript("$('#barradenavegacion').css({'display':'none'})")
                     divContenido.Attributes.CssStyle("background") = "white"
                     divpagecontainer.Attributes.CssStyle("margin") = "0px !important"
@@ -380,7 +381,7 @@ Partial Class Site
             dt.ReadXml(String.Format("{0}\Menu\ERP\{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveUsuario))
         End If
 
-        Dim menuobj = New MenuModal()
+        Dim menuobj As New MenuModal()
         menuobj.dt = dt
         menuobj.CveModuloSeleccionado = CveModulomasterpage.Text.ToEntero()
         menuobj.strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
@@ -504,7 +505,7 @@ Partial Class Site
 
                 Dim x509 As New X509Certificate2()
                 x509.Import(Data)
-                Dim Retorno = x509.NotAfter.ToShortDateString()
+                Dim Retorno As String = x509.NotAfter.ToShortDateString()
                 x509 = Nothing
                 Data = Nothing
                 Return Retorno