Way to loop code for inserting Checkboxlist values into DB?

[wjer]

I am trying to do two things for a test app:
1) Populate a CheckboxList webcontrol by loading a list of subject
names (for the DataTextField) and subject codes (for the
DataValueField) .
2) Respond to user selection by inserting their boolean values based
on checked vs. unchecked boxes. I have a SQL Server table with a lot
of columns of data type bit. All of the columns are named after
different subject codes (such as HSmath, HSast, etc.)

The first step I can do fine - but the second I am have trouble with.
How would I write looping code that would insert the status of each
checkbox into a field with names after the checkbox's value? Meaning,
how would I get HSmath's checked status to be inserted into the
HSmath field in my table, and then the HSast's checked status to be
inserted into the HSast field, and so on.

I have included my code thus far (removing unnecessary markup),
including my looping code for printing out results on the screen
(screenshot attached) - obviously this is what I'd replace with my
database code. Any help is appreciated.

http://www.wjer.net/images/problems/...list021304.gif

Dim strConn as string =
ConfigurationSe ttings.AppSetti ngs("ConnString ")

Sub Page_Load(sende r AS Object,E as EventArgs)
If Not IsPostBack Then
Dim conPubs As SqlConnection
Dim cmdSelect As SqlCommand
Dim dtrSubjects As SqlDataReader
conPubs = New SqlConnection(s trConn)
cmdSelect = New SqlCommand( "Select * From
tutors_subjectc odes order by Subject", conPubs )
conPubs.Open()
dtrSubjects = cmdSelect.Execu teReader()

check1.DataSour ce = dtrSubjects
check1.DataText Field = "Subject"
check1.DataValu eField = "subjectcod e"
check1.DataBind ()

dtrSubjects.Clo se()
conPubs.Close()
End If
End Sub

Sub btnStep2_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s)
Dim msg As String
Dim li As ListItem
msg = ""
For Each li In check1.Items
If li.Selected = True Then
msg = msg & "<li> " & li.Text &
" (" & li.Value &
")</li><br>"
End If
Next
lblSubjects.Tex t =
"<br><b>Selecte d:<br></b><ul>"
& msg & "</ul>"
End Sub
<asp:checkboxli st id="check1"
runat="server"
RepeatColumns=" 4"></asp:checkboxlis t>
<br>
<asp:Button id="btnStep2"
onclick="btnSte p2_Click" runat="server"
Text="Submit"></asp:Button>
<br>
<asp:label id="lblSubjects "
runat="server"> </asp:label>
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com