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.