ASP.NET

Private radCon As RadioButtonList()<br />
Protected Overrides Sub OnInit(ByVal e As EventArgs)<br />
    MyBase.OnInit(e)<br />
    If (Request("str") = 1) Then<br />
        Dim myList As dsSql = New dsSql()   ''''instantiate the function to get dataset<br />
        Dim ds As New Data.DataSet<br />
        ds = myList.dsConSessionTimes(Request("eid"))<br />
        If ds.Tables("conSessionTimes").Rows.Count > 0 Then<br />
            radCon = New RadioButtonList(ds.Tables("conSessionTimes").Rows.Count - 1) {}<br />
            Dim i As Integer = 0<br />
                Dim rad As RadioButtonList = New RadioButtonList()<br />
                rad.ID = "rad" + i.ToString()<br />
                rad.DataSource = ds.Tables("conSessions")<br />
                rad.DataTextField = ds.Tables("conSessions").Columns("session_name").ToString<br />
                rad.DataBind()<br />
                rad.SelectedIndex = 0<br />
                phConcurrent.Controls.Add(rad)<br />
                radCon(i) = rad<br />
            For Each j As Data.DataRow In ds.Tables("conSessionTimes").Rows<br />
                Dim rad As RadioButtonList = New RadioButtonList()<br />
                rad.ID = "rad" + i.ToString()<br />
                rad.DataSource = ds.Tables("conSessions")<br />
                rad.DataTextField = ds.Tables("conSessions").Columns("session_name").ToString<br />
                rad.DataBind()<br />
                rad.SelectedIndex = 0<br />
                phConcurrent.Controls.Add(rad)<br />
                radCon(i) = rad<br />
                i = i + 1<br />
            Next<br />
        End If<br />
    End If<br />
End Sub