strCategories = ";"
                Dim categories As New RepositoryCategoryController
                Dim category As RepositoryCategoryInfo
                Dim objItem As ListItem
                Dim objCBL As CheckBoxList
                Dim objRBL As RadioButtonList

                ' get selection type for the Categories
                Dim controlType As String = oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "Categories", "Select", "MULTIPLE")
                If controlType = "SINGLE" Then
                    objRBL = PlaceHolder.FindControl("__Categories")
                    If Not objRBL Is Nothing Then
                        Dim item As ListItem
                        For Each item In objRBL.Items
                            If item.Selected Then
                                strCategories += item.Value & ";"
                            End If
                        Next item
                    End If
                Else
                    objCBL = PlaceHolder.FindControl("__Categories")
                    If Not objCBL Is Nothing Then
                        Dim item As ListItem
                        For Each item In objCBL.Items
                            If item.Selected Then
                                strCategories += item.Value & ";"
                            End If
                        Next item
                    End If
                End If
                If strCategories.Length = 1 Then
                    ' every item must be associated with the ALL category
                    Dim Arr As ArrayList = categories.GetRepositoryCategories(ModuleId)
                    category = CType(Arr.Item(0), RepositoryCategoryInfo)
                    strCategories += (category.ItemId & ";")
                End If

                strAttributes = ";"
                Dim attributes As New RepositoryAttributesController
                Dim attribute As RepositoryAttributesInfo
                Dim attributeValues As New RepositoryAttributeValuesController
                Dim attributeValue As RepositoryAttributeValuesInfo

                ' get selection type for the ATTRIBUTE
                controlType = oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "ATTRIBUTES", "Select", "MULTIPLE")
                If attributes.GetRepositoryAttributes(ModuleId).Count > 0 Then
                    For Each attribute In attributes.GetRepositoryAttributes(ModuleId)
                        controlType = oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "ATTRIBUTE:" & attribute.AttributeName, "Select", controlType)
                        If controlType = "SINGLE" Then
                            objRBL = PlaceHolder.FindControl("__Attribute_" & attribute.ItemID.ToString())
                            If Not objRBL Is Nothing Then
                                For Each objItem In objRBL.Items
                                    If objItem.Selected = True Then
                                        strAttributes += objItem.Value & ";"
                                    End If
                                Next
                            End If
                        Else
                            objCBL = PlaceHolder.FindControl("__Attribute_" & attribute.ItemID.ToString())
                            If Not objCBL Is Nothing Then
                                For Each objItem In objCBL.Items
                                    If objItem.Selected = True Then
                                        strAttributes += objItem.Value & ";"
                                    End If
                                Next
                            End If
                        End If
                    Next
                End If