Remove an item from a checkboxlist.

[Stanley J Mroczek]

I am loading the 5 checkboxlist from a database. I have 5 lists. The first
four are interior, exterior, safety and drive train. The fifth is optional
options. It is possible the optional option was already selected, if it was
selected it would be in one of the first four (interior, exterior, safety and
drive train). What I am doing is loading the fifth checkboxlist and then
checking to see if it was selected if so, I am trying to remove it from the
fifth checkboxlist. This is my code.
This first four are
CREATE PROCEDURE Get_A_Vin_A_Car Options_by_type
@Vin Nvarchar(50),
@IdTypeOption int

as

SELECT Options.IdTypeO ption, Options.PrintDe scription, Options.IDOptio n
FROM VinNumber INNER JOIN
Options ON VinNumber.VINOp tion =
Options.OptionD escription AND VinNumber.VINVa lue = Options.OptionV alue
WHERE VinNumber.VIN = @Vin AND (VinNumber.VINO ption NOT LIKE 'decoded'
+ '%') AND (VinNumber.VINO ption NOT LIKE 'DataOne' + '%')
AND (VinNumber.VINO ption NOT LIKE 'vinSquish' + '%')
AND (NOT (Options.PrintD escription IS NULL)) and Options.IdTypeO ption
=@IdTypeOption
ORDER BY Options.PrintDe scription
GO

The fifth one is
CREATE PROCEDURE Get_A_Vin_A_Car Options
@Vin Nvarchar(50)

as

SELECT Options.IdTypeO ption, Options.PrintDe scription, Options.IDOptio n
FROM VinNumber INNER JOIN
Options ON VinNumber.VINOp tion =
Options.OptionD escription AND VinNumber.VINVa lue = Options.OptionV alue
WHERE VinNumber.VIN = @Vin AND (VinNumber.VINO ption NOT LIKE 'decoded'
+ '%') AND (VinNumber.VINO ption NOT LIKE 'DataOne' + '%')
AND (VinNumber.VINO ption NOT LIKE 'vinSquish' + '%')
AND (NOT (Options.PrintD escription IS NULL))
ORDER BY Options.IdTypeO ption, Options.PrintDe scription
GO

Editoptionalsse lected.DataSour ce =
optionsfile.Get ACarOptionoptio nals(DataTableC ars.Rows(0)("Vi nNumber"))
Editoptionalsse lected.CellPadd ing = 5
Editoptionalsse lected.DataText Field = "PrintDescripti on"
Editoptionalsse lected.DataValu eField = "IDOption"
Editoptionalsse lected.RepeatCo lumns = 5
Editoptionalsse lected.RepeatDi rection = RepeatDirection .Horizontal
Editoptionalsse lected.CssClass = "CartListIt em"
Editoptionalsse lected.BackColo r = Yellow

If DataTableCars.R ows(0)("IdCar") > 0 Then
OptionsSelected =
optionsfile.Get ACarOptions(Dat aTableCars.Rows (0)("IdCar"))
While OptionsSelected .Read()
selected = OptionsSelected .Item("IdOption ")
Editoptionalsse lected.Items.Re move(selected)
End While
End If
Editoptionalsse lected.DataBind ()