Namespace MyCompanyNamespace

    Public Class CGlobal

        'Funzione globale all'applicazione per la creazione della barra del TopMenu
        Public Shared Function TopMenuBar() As String
            Dim sb As New StringBuilder

            sb.Append("<table border='0' width='100%' style='border-collapse:collapse;'>")
            sb.Append("<tr><td colspan='10' align='center' style='padding:0px 0px 0px 0px; background-image: url(images/header_x.jpg); background-repeat: repeat-x;'><img src='images/header.jpg' border='0'></td></tr>")
            sb.Append("<tr><td class='wbxColorato' width='25%'>&nbsp;</td>")
            sb.Append("<td class='wbxColorato' align='right'><img src='images/Form.gif'/></td>")
            sb.Append("<td class='wbxColorato' align='left'>Form: " & Path.GetFileNameWithoutExtension(HttpContext.Current.Session("XMLFile")) & "</td>")
            sb.Append("<td class='wbxColorato' align='right'><img src='images/Livello.gif'/></td>")
            sb.Append("<td class='wbxColorato' align='left'>Livello utente: " & HttpContext.Current.Session("LivelloUtente") & "</td>")
            sb.Append("<td class='wbxColorato' align='right'><img src='images/user2_16x16.gif'/></td>")
            sb.Append("<td class='wbxColorato' align='left'>Utente: " & HttpContext.Current.Session("Utente") & "</td>")
            sb.Append("<td class='wbxColorato' align='right'><img src='images/home_16x16.gif'/></td>")
            sb.Append("<td class='wbxColorato' align='left'>Company: " & HttpContext.Current.Session("CompanyName") & "</td>")
            sb.Append("<td class='wbxColorato' width='25%'>&nbsp;</td>")
            sb.Append("</tr></table>")

            Return sb.ToString()
        End Function
   End Class
End Namespace