<script language="C#" runat="server">
string html;

public void Page_Load ( Object src, EventArgs e ) {
   if ( !IsPostBack ) {
      CultureInfo [ ] cultures = CultureInfo.GetCultures ( CultureTypes.SpecificCultures );

      foreach ( CultureInfo c in cultures ) {
         culturesSelect.Items.Add ( c.DisplayName );
         culturesSelect.Items.FindByText ( c.DisplayName ).Value = c.Name;
      }
   }

   // write headers
   ...

   DateTime now = DateTime.Now;
   IFormatProvider culture = new CultureInfo ( culturesSelect.SelectedItem.Value );
   string [ ] nowFormats = now.GetDateTimeFormats ( culture );

   // list all DateTime formats for given culture
   int i = 0;

   foreach ( string format in nowFormats ) {
      html += "<tr>";
      html += "<td>" + i ++ + "</td>";
      html += "<td>" + format + "</td>";
      html += "</tr>";
   }
   html += "</table>";
}
</script>

<script language="VB" runat="server">
Dim html As String

Public Sub Page_Load ( src As Object, e As EventArgs )
   If Not IsPostBack Then
      Dim cultures As CultureInfo ( ) = CultureInfo.GetCultures ( CultureTypes.SpecificCultures )
      Dim c As CultureInfo
      For Each c In  cultures
         culturesSelect.Items.Add ( c.DisplayName )
         culturesSelect.Items.FindByText ( c.DisplayName ).Value = c.Name
      Next c
   End If
   
   ' write headers
   ...
   
   Dim now As DateTime = DateTime.Now
   Dim culture = New CultureInfo ( culturesSelect.SelectedItem.Value )
   Dim nowFormats As String ( ) = now.GetDateTimeFormats ( culture )
   
   ' list all DateTime formats for given culture
   Dim i As Integer = 0
   Dim format As String
   For Each format In  nowFormats
      html += "<tr>"
      html += "<td>" & i + i & "</td>"
      html += "<td>" & format & "</td>"
      html += "</tr>"
   Next format
   html += "</table>"
End Sub
</script>