Protected Sub rptPortfolios_ItemDataBound(ByVal sender As Object, ByVal e As _
  RepeaterItemEventArgs) 
    If e.Item.ItemType <> ListItemType.Item AndAlso e.Item.ItemType <> _
    ListItemType.AlternatingItem Then 
        Exit Sub 
    End If 
    Dim rdo As RadioButton = DirectCast(e.Item.FindControl("rdoSelected"), _
      RadioButton) 
    Dim script As String = "SetUniqueRadioButton(" & _
    "'rptPortfolios.*Portfolios',this)" 
    rdo.Attributes.Add("onclick", script) 
End Sub