<%@ Page Language="VB" MasterPageFile="~/Allgemein/MasterPage.master" _
  AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" _
  title="Unbenannte Seite" %>
 
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
<script src="jquery-1.4.2.min.js" type="text/javascript"></script>
 
    <script type="text/javascript">
        $(document).ready(
            function FillDates() 
            {
                var x = ["1-90-90-90" , "2-91-91-91" , "3-40-40-40", _
                  "4-23-23-23"];
                for(var i = 0 ; i < 4 ; i++)
                {
                    $('#' + x)[0].checked = true;
                };
            }
        );
    </script>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="TitlePlaceHolder" _
  Runat="Server"></asp:Content>
 
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder" _
  Runat="Server">
    <div id="cont" runat="server"></div>
    <input id="4-23-23-23" name="4" type="radio"/>
</asp:Content>

 
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Dim table As Table = New Table()
        Dim tr As New TableRow()
        Dim td As New TableCell()
        Dim td2 As New TableCell()
        Dim rb1 As RadioButton = New RadioButton()
        Dim rb2 As New HtmlInputRadioButton()
        Dim rb3 As New RadioButton()
 
        rb1.ID = "1-90-90-90"
        rb1.GroupName = "1"
        rb2.ID = "2-91-91-91"
        rb2.Name = "2"
        rb3.ID = "3-40-40-40"
        rb3.GroupName = "3"
 
        cont.Controls.Add(rb1)
        td2.Controls.Add(rb3)
        td.Controls.Add(rb2)
        tr.Controls.Add(td)
        tr.Controls.Add(td2)
        table.Controls.Add(tr)
        cont.Controls.Add(table)
    End Sub
End Class