Actualizar campo Si/No

[Uefor]

Eso creo yo también golman... tammader a tu pregunta como puedes ver más abajo si está como POST.

Este es el código util de pag1, la que tiene el formulario y envia a pag2 la información:

Código:

 <form METHOD="POST" name=formulario>

<select>
Esto condiciona los siguientes resultados con un onchange tiene mucho código intrascendente, pero si quereis os lo posteo también
</select>

<%   if CampId <> "" then %>
     
<%  
Dim RS
Dim SQL
 
    SQL="select * from T1 where CampId="&CampId&" "
	
    set RS=createobject("ADODB.Recordset")
    RS.open SQL,conn
   
 if not RS.eof then    
%>   
<%=RS("Camp1")%>
<%=RS("Camp2")%>
<%=RS("Camp3")%>
<%=RS("Camp4")%>
<%=RS("Camp5")%>
           <%  end if
RS.close
set RS= nothing
%>

<%  
Dim RS2, SQL2
     	     
SQL2="SELECT T2.Camp2Id, T2.Camp21, T2.Camp22, "
SQL2=SQL2&"T3.Camp2, FROM T2 INNER JOIN T3 " 
SQL2=SQL2&"ON T2.Camp21=T3.Camp31"
SQL2=SQL2&"WHERE CampId="&CampId&" "

set RS2=createobject("ADODB.Recordset")
RS2.open SQL2,conn
		
do while not RS2.eof  
%>    

<%=RS2("Camp21")%>                      
<%=RS2("Camp32")%>

<a href=pag2.asp?Id=<%=RS2("Camp2Id")%>><img src='images/edt.gif' border='0'> Editar</a>
<input <%if RS2("Camp22") = "True" Then Response.Write("CHECKED") End if%> TYPE="checkbox" VALUE="1" NAME="check"> 

<%

    RS2.movenext
    loop	
    RS2.close
    set RS2= nothing
   end if 

    Conn.close()
    Set Conn = nothing
%>     
</form>

Espero que me encontreis con esto el error, soy de la opinión que debe estar en él.