Problema con checkbox e ingreso

[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