Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
   Dim ci As CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
   Response.Write("<b><u>BIEŻĄCE USTAWIENIA KULTUROWE</u></b>")
   Response.Write("<p><b>Oznaczenie ustawienia:</b> " & ci.Name.ToString() & "<br>")
   Response.Write("<b>Ustawienie nadrzędne:</b> " & ci.Parent.Name.ToString() & _ 
      "<br>")
   Response.Write("<bNazwa wyświetlana:</b> " & ci.DisplayName.ToString() & _ 
      "<br>")
   Response.Write("<b>Nazwa angielska:</b> " & ci.EnglishName.ToString() & _ 
      "<br>")
   Response.Write("<b>Nazwa w języku lokalnym:</b> " & ci.NativeName.ToString() & _ 
      "<br>")
   Response.Write("<b>Trzyliterowe oznaczenie ISO:</b> " & _
      ci.Parent.ThreeLetterISOLanguageName.ToString() & "<br>")
   Response.Write("<b>Rodzaj kalendarza:</b> " & ci.Calendar.ToString() & "</p >")
End Sub
