questo
codice:
	  Dim mode3
	  for each item in Request.Form
	  ...
	  if Mid(item, 1, 4) = "CB1_" then
	  	 mode3=Request(item)
			 if mode3 = "True" then
				SQL1 = SQL1 & Mid(item, 5) & " = "
				SQL1 = SQL1 & "true, "
			 elseif mode3 = "False" then
				SQL1 = SQL1 & Mid(item, 5) & " = "
				SQL1 = SQL1 & "false, "
			 end if
	  end if
	  next
potrebbe essere

codice:
	  Dim mode3
	  for each item in Request.Form
	  ...
	  if Mid(item, 1, 4) = "CB1_" then
	  	 mode3=Request(item)
                    
			if mode3<> "True" then
                            mode3="false"
                        end if
			  SQL1 = SQL1 & Mid(item, 5) &"="&mode3&", "
	  end if
	  next
tenendo presente che non capisco il for each ecc.