BD y checkbox

[masva]

Hola, podría ayudarme alguién con este código:

<br>
<form name="checkagencias" method="GET" target="_blank">
<%
Response.write "<br>;&nbsp;<br>"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL="SELECT NOMBRE, ID FROM AGENCIAS WHERE ID <> " & id_cambiar & " AND ID <> 13 Order by NOMBRE ASC"
RS.open SQL, Conn

Response.write "<table width='75%' border='0' cellspacing = '0' cellpadding = '0' ><tr class = 'topAdminRow'>"
Response.write "<td width = '10%' align='center' class='TBorderLeftTop' rowspan = '2'></td>"
Response.write "<td width = '90%' class='TBorderTopRight' colspan = '3'>"
Response.write "<font face='arial' size='2'>"
Response.write "&nbsp;<br></font></td></tr>"

%>
<tr>
<td width="100%" align = "center" class='TBorderTopRight'>
<b>Nombre Agencia</b>
</td>
</tr>

<%
Set Consulta = Server.CreateObject("ADODB.Recordset")

SQL="SELECT ID_2 FROM COLABORACIONES WHERE ID_1 = " & Session("id_agencia") & " AND ID_2 <> 13" & " AND ID_2 <>" & id_cambiar
Consulta.open SQL, Conn

Do while not RS.eof
userName = RS("nombre")
%>
<tr>
<td width="10%" align = "center" class='TBorderLeftTop'>
<%
encontrado = false
idag = RS("ID")

Do while not Consulta.eof and encontrado = false
id2 = Consulta("id_2")
if (idag = id2) then
encontrado = true
end if
Consulta.movenext
loop
if encontrado then
%>
<!--<input type="checkbox" name="ID" value="Checked" onClick="Checked()">-->
<input type="checkbox" name="alta" value="ON">
<%else%>
<input type="checkbox" name="alta" value="ON">
<%end if%>
</td>

<td width="75%" class='TBorderTopRight'>
<font face="Arial, Helvetica, sans-serif" size = "2"> &nbsp;<%=userName%> </font>
</td>
</tr>
<%
RS.MoveNext
loop
%>
<tr height = "1">
<td width="10%" class='TBorderTop' height = "1">&nbsp;</td>
<td width="90%" class='TBorderTop' height = "1" colspan = "3">&nbsp;</td>
</tr>
</table>

<%
rs.close
end if
%>
</form>

Notas:

Consigo ver una tabla con dos columnas, la primera columna tiene checkbox y la segunda nombres:
[] Nombre_1 ... [] Nombre_N

Necesito obtener en las checkbox el valor activado o no según la base de datos que tengo.

Necesito poder modificar la base de datos según si activo o no la checkbox dependiendo del nombre que tenga al lado de la misma.


Muchas gracias.

[verinchi]

Fijate que a cada checkBox le tenés que poner el valor dinámico como lo harías para llenar un campo de texto con el valor que trae de la base de datos (Tu consulta).
De todas formas... me resulta difícil ver tu codigo porque todo lo que imprimis lo haces desde asp mientras que yo combino htm con asp de forma diferente....
En la tabla de la base de datos me imagino que el campo que chequeas es una casilla de verificación.
De ser asi, ponés: Si el campo con verificación que está en la base de datos =0 entonces va sin chequear, si es 1 va chequeado.
Si fuera access creo que es 0 y -1....
Probá con eso a ver si te queda.

[masva]

Agradezco el mensaje.

He conseguido dejar activas, con la base de datos, las checkbox correspondientes.

Me falta hacer si se activa la checkbox se añade en la tabla de la base de datos, si no se activa se quita o se deja de poner en la tabla de la base de datos.

Muchas gracias.

[masva]

No he conseguido actualizar la página y modificar la checkbox con los datos de la base de datos.

Podría ayudarme alguién.

Muchas gracias.

[estoquera44]

Yo uso esto con Access:
con el codigo 1, detectas si viene activado o no desde la base de datos y cuando modifiques el valor y lo envies a la pagina de actualización, con el codigo 2 lo actualizas en la base de datos.

Codigo 1:

Código:

<td>
    <% if rs("Entregado") then%>
       <input type="checkbox" name="entrega" value="activado" checked>
    <%else%>
       <input type="checkbox" name="entrega" value="desactivado" >
    <%end if%>
</td>

<td>
    <% if rs("Facturado") then%>
        <input type="checkbox" name="factura" value="activado" checked>
    <%else%>
        <input type="checkbox" name="factura" value="desactivado" >
    <%end if%>
</td>

Codigo 2:

Código:

entregado = request.form ("entrega")
facturado = request.form ("factura")
if entregado = "" then
	entregado = 0
else
	entregado = 1
end if
	
if facturado = "" then
	facturado = 0
else
	facturado = 1
end if

strSQL = "UPDATE Proyectos SET " 
	strSQL = strSQL & "IDEmpresa=" & empresa & ""
	strSQL = strSQL & ", " & "Entregado=" & entregado & ""
	strSQL = strSQL & ", " & "Facturado=" & facturado & ""
	strSQL = strSQL & " WHERE IDProyecto =" & request.form("queactualizo")