Imports Microsoft.VisualBasic
Imports System.Diagnostics
Imports System.Text
Imports System.Web.Caching
Imports System.Xml

Namespace ChiccomoxNamespace


    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

 Public Shared Sub NoCacheBrowser()
            HttpContext.Current.Response.Cache.SetExpires(DateTime.UtcNow.AddMinutes(-1))
            HttpContext.Current.Response.Cache.SetCacheability(HttpCacheability.NoCache)
            HttpContext.Current.Response.Cache.SetNoStore()
End Sub