Actualizar campo Si/No

[u_goldman]

A ver, reemplaza todo el while que crea los checkboxes con esto:

Código:

	<%		
	Dim strChecks
	strChecks = ""
	do while not RS_buzos.eof  
	%>    
		<table WIDTH="600" ID="Table1">
		<tr>
			<td WIDTH="26">
				<%=i_buzos%>
			</td> 
			<td WIDTH="78">
				<%=RS_buzos("Socio")%>
			</td>                       
			<td WIDTH="395">
				<%=RS_buzos("Nombre")%>
			</td>
			<td WIDTH="77" >
				<input <%if RS_buzos("Patron") = "True" Then Response.Write("CHECKED") End if%> TYPE="checkbox" VALUE="<%=RS_buzos("Id")%>"  NAME="check">
			</td>
		</tr>
		</table>
		<%
		i_buzos = i_buzos + 1
		strChecks = strChecks & RS_buzos("Id") & ","
		RS_buzos.movenext
    loop
    strChecks = left(strChecks, len(strChecks) - 1)
	%>
	<input type="hidden" name="idsSeleccionados" value="<%=strChecks%>" />

y donde recibes reemplaza tu query con esto:

Código:

	<%
	sql = "UPDATE buzos_incl SET Patron = 0 WHERE Id IN ("&Request.Form("idsSeleccionados")&")"
	Conn.Execute(sql)
	sql = "UPDATE buzos_incl SET Patron = 1 WHERE Id IN("&Request.Form("check")&")"
	Conn.Execute(sql)
	%>

A ver si ya funciona...