Modificar checkbox de BD en asp a través web

[wpp]

Tengo una página ASP que me presenta los registros de una bd por tablas, pero no me deja la opción de modificar. Lo que querría es cambiar la columna de registro que ahora en la BD está con un checkbox, usuario activado, checkbox habilitado, entonces querría activar a los usuarios a través del asp y luego guardar los cambios en la misma ASP, y que quedarán cambiado en la BD, por supuesto.
Creo que no es muy difícil pero no me sale, siempre me da error. Gracias por la ayuda.

[dobled]

para cambiar el valor de la base tienes que mandarle el valor true o false para activarlo y desactivarlo..
ej

Update tutabla Set usuario_activado = false 'si el usuario esta desactivado

Update tutabla Set usuario_activado = true 'si quieres activar el usuario

eso es lo que te entendi yo

[wpp]

Si perfecto, pero yo quiero que si activo por ejemplo, 20 checkbox para que se grabe en la bd, como lo haría a la vez con una asp.
Ahora ya la tengo pero solo me los muestra true o false, querría que me mostrara el asp el checkbox, y al habilitar cierta cantidad al darle guardar me los pasara a true, sin borrar nada, claro.
Espero haberme explicado te paso el codigo que ahora tengo.


Option Explicit
Response.Expires = -1000

Dim Conn
Dim oRS
Dim sSQL
Dim sColor

Response.Write("<font size=2 face=arial>")
Response.Write("Visualización<br>")
Response.Write("Base de datos del registro.mdb<br><br>")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/mdb-database/registro.mdb")

sSQL = "SELECT autonumerico, apellido1, apellido2, dni, cuerpo, email, usuario, clave, FechaLogin, activado FROM registro ORDER BY autonumerico DESC"
Set oRS = Conn.Execute(sSQL)

Response.Write("<table border=0 cellpadding=1 cellspacing=0 style='font-family:arial; font-size:7pt;'>")
Response.Write("<tr bgcolor=black style='color:white;'><td>Nº</td>")
Response.Write("<td>Apellido1</td></td>")
Response.Write("<td>Apellido2</td></td>")
Response.Write("<td>Dni</td></td>")
Response.Write("<td>Cuerpo</td></td>")
Response.Write("<td>E-mail</td></td>")
Response.Write("<td>Usuario</td>")
Response.Write("<td>Clave</td></td>")
Response.Write("<td>Fecha</td>")
Response.Write("<td>Activado-Desactivado</td></tr>")

sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("autonumerico").Value & "</td>")
Response.Write("<td>" & oRS("apellido1").Value & "</td>")
Response.Write("<td>" & oRS("apellido2").Value & "</td>")
Response.Write("<td>" & oRS("dni").Value & "</td>")
Response.Write("<td>" & oRS("cuerpo").Value & "</td>")
Response.Write("<td>" & oRS("email").Value & "</td>")
Response.Write("<td>" & oRS("usuario").Value & "</td>")
Response.Write("<td>" & oRS("clave").Value & "</td>")
Response.Write("<td>" & oRS("FechaLogin").Value & "</td>")
Response.Write("<td>" & oRS("activado").Value & "</td></tr>")



oRS.MoveNext

Loop

Response.Write("</table><br><br>")

Conn.Close
Set oRS = Nothing
Set Conn = Nothing


Gracias.

[dobled]

se me olvidaba en la base el tipo de campo debe ser Si/No para que te sirva lo anterior

despues lo muestras asi en la pagina

<input name="usuario_activado" type="checkbox" value=""<%If rs("usuario_activado") = true Then%> checked<%end if%>>

[wpp]

Échale un vistazo al código a ver como lo implentaría con tu idea, estoy un poco perdido.
También tendría que poner un boton Guardar en ese ASP para que me actualizara los cambios, ¿no?.

[dobled]

lo voy a ver mientras hechale un vistazo a este post de urjose


Estilo Hotmail

[wpp]

Lo he mirado, pero esto solo vale para borrar los checkbox habilitados.
Yo sólo quiero habilitarlos y al guardar, que guarde cambios y pase de false a true los activados en el ASP, sin más, y no borre nada de la BD, vamos que guarde cambios en la BD.

[dobled]

mira esto te va a servir

Enlace

[wpp]

Gracias, lo estudio.