Dim strchklist As String = ""
| Dim li As ListItem |
| For Each li In CheckBoxList1.Items |
| If li.Selected Then |
| strchklist += li.Text + " " |
| End If |
| Next |
| If strchklist = "" Then |
| Response.Write("No item Selected") |
| Else |
| Response.Write(("You selected : " + strchklist)) |
