Problema con checkbox e ingreso

[garcef]

Como demonios se inserta un registro con la caracteristica Si/No en ASP en una .mdb

hice este script

<%
'Creamos la conexión y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")

cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("nwregister.mdb"))
sqltext = "SELECT * FROM tblUsers"
rst.Open sqltext,cnn,3,3

UserId = Request.Form("UserId")
Password = Request.Form("Password")
pass2 = Request.Form("pass2")
nombre = Request.Form("nombre")
edad = Request.Form("edad")
profesion = Request.Form("profesion")
correo = Request.Form("correo")
correo2 = Request.Form("correo2")
pais = Request.Form("pais")
ciudad = Request.Form("ciudad")
visita = Request.Form("visita")
eradio = Request.Form("eradio")
mas = Request.Form("mas")
resumen = Request.Form("resumen")
flash = Request.Form("flash")
ofertas = Request.Form("ofertas")
software = Request.Form("software")
distancia = Request.Form("distancia")
sexo = Request.Form("sexo")
musica = Request.Form("musica")
libros = Request.Form("libros")

If Request.Form("eradio") = "1" then
value=true
else
value=false
end if
If Request.Form("mas") = "1" then
value=true
else
value=false
end if
If Request.Form("resumen") = "1" then
value=true
else
value=false
end if
If Request.Form("flash") = "1" then
value=true
else
value=false
end if
If Request.Form("ofertas") = "1" then
value=true
else
value=false
end if
If Request.Form("software") = "1" then
value=true
else
value=false
end if
If Request.Form("distancia") = "1" then
value=true
else
value=false
end if
If Request.Form("sexo") = "1" then
value=true
else
value=false
end if
If Request.Form("musica") = "1" then
value=true
else
value=false
end if
If Request.Form("libros") = "1" then
value=true
else
value=false
end if

rst.AddNew
rst("UserId") = UserId
rst("Password") = Password
rst("pass2") = pass2
rst("nombre") = nombre
rst("edad") = edad
rst("profesion") = profesion
rst("correo") = correo
rst("correo2") = correo2
rst("pais") = pais
rst("ciudad") = ciudad
rst("visita") = visita
rst.update

rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
%>

pero ingresa todos los que son cajas de texto pero los checkbox o casillas de verificacion no los ingresa

los campos en la bd tienen Si/No

:-p

[maestro]

Los posibles valores para un campo de tipo SI/NO son
TRUE
FALSE

Para añadir
<%
rs.adnnew
rs("campo")=TRUE
rs.update
%>

Para modificar
<%
rs("campo")=TRUE
rs.update
%>

[garcef]

Nada solo un error

rst.AddNew
rst("UserId") = UserId
rst("Password") = Password
rst("pass2") = pass2
rst("nombre") = nombre
rst("edad") = edad
rst("profesion") = profesion
rst("correo") = correo
rst("correo2") = correo2
rst("pais") = pais
rst("ciudad") = ciudad
rst("visita") = visita
rst("eradio") = TRUE
rst("mas") = TRUE
rst("resumen") = TRUE
rst("flash") = TRUE
rst("ofertas") = TRUE
rst("distancia") = TRUE
rst("sexo") = TRUE
rst("musica") = TRUE
rst("libros") = TRUE
rst.update

ERRROR

ADODB.Fields error '800a0cc1'

ADO no encontró el objeto en la colección que corresponde con el nombre o referencia ordinal solicitada por la aplicación.

/eradio/registraso.asp, line 104

[maestro]

Estas escribiendo mal el nombre de algun campo
rs("campo")
o bien estas intentando poner uno que no existe en la tabla.

Venga que ya estas cerca.

[garcef]

Pues ya intente muchas cosas, tengo desde las 23 horas de ayer tratando de encontrarlo y no puedo en este momento son las ocho de la mañana

[maestro]

Muy facil vete descartando campos incorrectos dejandolos como comentarios.
Si funciona vete agrgando otro hasta que veas cual falla.

<%
rst.AddNew
rst("UserId") = UserId
'rst("Password") = Password
'rst("pass2") = pass2
'rst("nombre") = nombre
' asi con comentarios
rst.update
%>

[garcef]

Lo voy a tomar encuenta pero por mas que lo sigo intentando no logro escribirlo en la base de datos, o me marca error o no lo coloca, lodeja en blanco o el texto es incorrecto, pero no puedo sencillamente no quiere esta cosa escribir

Pareciera que quiere escribirlo a su contentillo ya puse los campos como value=1, Si, True, No, ON y no hay forma de que escriba en la base de datos

me da la impresion que busca que todos los campos esten llenos forzozamente, si dejo algunos sin marcar entonces marca error

[maestro]

Eso ya no depende del ASP sino de la base de datos, si has configurado algun campo como requerido, cambialo.

De todas formas si te ingresa en algun momento aunque sea valores en blanco el problema de insert ya esta solucionado.ç
Ahora se plantea otro, recoger corectamente esas varibles que estan vacias.

[garcef]

Ninguno de los campos está como requerido

¡¡¡¡ YA LO LOGRE !!!!!!!!



ahi va el código por si a alguien le sirve

<%
'Creamos la conexión y el recordset
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")

cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("usuarios.mdb"))
sqltext = "SELECT * FROM tblUsers"
rst.Open sqltext,cnn,3,3

UserId = Request.Form("UserId")
Password = Request.Form("Password")
pass2 = Request.Form("pass2")
nombre = Request.Form("nombre")
edad = Request.Form("edad")
profesion = Request.Form("profesion")
correo = Request.Form("correo")
correo2 = Request.Form("correo2")
pais = Request.Form("pais")
ciudad = Request.Form("ciudad")
visita = Request.Form("visita")
eradio = Request.Form("eradio")
mas = Request.Form("mas")
resumen = Request.Form("resumen")
flash = Request.Form("flash")
ofertas = Request.Form("ofertas")
software = Request.Form("software")
distancia = Request.Form("distancia")
sexo = Request.Form("sexo")
musica = Request.Form("musica")
revistas = Request.Form("revistas")

If Request.Form("eradio") = "TRUE" then
eradio=true
else
eradio=false
end if
If Request.Form("mas") = "TRUE" then
mas=true
else
mas=false
end if
If Request.Form("resumen") = "TRUE" then
resumen=true
else
resumen=false
end if
If Request.Form("flash") = "TRUE" then
flash=true
else
flash=false
end if
If Request.Form("ofertas") = "TRUE" then
ofertas=true
else
ofertas=false
end if
If Request.Form("software") = "TRUE" then
software=true
else
software=false
end if
If Request.Form("distancia") = "TRUE" then
distancia=true
else
distancia=false
end if
If Request.Form("sexo") = "TRUE" then
sexo=true
else
sexo=false
end if
If Request.Form("musica") = "TRUE" then
musica=true
else
musica=false
end if
If Request.Form("revistas") = "TRUE" then
revistas=true
else
revistas=false
end if

rst.AddNew
rst("UserId") = UserId
rst("Password") = Password
rst("pass2") = pass2
rst("nombre") = nombre
rst("edad") = edad
rst("profesion") = profesion
rst("correo") = correo
rst("correo2") = correo2
rst("pais") = pais
rst("ciudad") = ciudad
rst("visita") = visita
rst("eradio") = eradio
rst("mas") = mas
rst("resumen") = resumen
rst("flash") = flash
rst("ofertas") = ofertas
rst("distancia") = distancia
rst("sexo") = sexo
rst("musica") = musica
rst("revistas") = revistas
rst.update

rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing

Response.Write "El Registro se ha ingresado con exito"
%>


Gracias a maestro, gracias

[maestro]

¿Y al final que campo era el que no coincidia?

[garcef]

"libros" por "revistas"
je!!

[maestro]

Te lo dije