davman2002
Programmer
I want to know if anyone know how to loop thru a querystring of Checkboxes and determine which ones have been checked? What I actually want to do is determine which checkboxes have been selected and then based on that information update the database.
Here is what I currently have and it does not seem to work
<%
strB1(0) = Request.QueryString("B1"
strB1(1) = Request.QueryString("B2"
strB1(2) = Request.QueryString("B3"
strB1(3) = Request.QueryString("B4"
strB1(4) = Request.QueryString("B5"
strB1(5) = Request.QueryString("B6"
strB1(6) = Request.QueryString("B7"
strB1(7) = Request.QueryString("B8"
strB1(8) = Request.QueryString("B9"
strB1(9) = Request.QueryString("B10"
strB1(10) = Request.QueryString("B11"
strB1(11) = Request.QueryString("B12"
strB1(12) = Request.QueryString("B13"
strB1(13) = Request.QueryString("B14"
strB1(14) = Request.QueryString("B15"
strB1(15) = Request.QueryString("B16"
'Determine which Basic Information buttons were checked
BCounter = 0
Counter = 0
While Counter < 16
If strB1(Counter) = "ON" Then
If Counter = 0 Then
MyArray = strB1(Counter)
Else
MyArray = MyArray & "," & strB1(Counter)
End If
End If
Counter = Counter + 1
BCounter = BCounter + 1
Wend
strB_info = Array(MyArray)
'Used for testing
Response.Write MyArray
%>
Here is what I currently have and it does not seem to work
<%
strB1(0) = Request.QueryString("B1"
strB1(1) = Request.QueryString("B2"
strB1(2) = Request.QueryString("B3"
strB1(3) = Request.QueryString("B4"
strB1(4) = Request.QueryString("B5"
strB1(5) = Request.QueryString("B6"
strB1(6) = Request.QueryString("B7"
strB1(7) = Request.QueryString("B8"
strB1(8) = Request.QueryString("B9"
strB1(9) = Request.QueryString("B10"
strB1(10) = Request.QueryString("B11"
strB1(11) = Request.QueryString("B12"
strB1(12) = Request.QueryString("B13"
strB1(13) = Request.QueryString("B14"
strB1(14) = Request.QueryString("B15"
strB1(15) = Request.QueryString("B16"
'Determine which Basic Information buttons were checked
BCounter = 0
Counter = 0
While Counter < 16
If strB1(Counter) = "ON" Then
If Counter = 0 Then
MyArray = strB1(Counter)
Else
MyArray = MyArray & "," & strB1(Counter)
End If
End If
Counter = Counter + 1
BCounter = BCounter + 1
Wend
strB_info = Array(MyArray)
'Used for testing
Response.Write MyArray
%>