haste una funcion que lo transforme.
por ejempo
function transforma_valor_buleano (buleano)
if buleano = true then
transforma_valor_buleano = "Si"
else
transforma_valor_buleano = "No"
end if
end function
y la llamas asi
mi_buleano = transforma_valor_buleano (buleano_de_la_base_de_datos)
por otro lado para hacer un checkbox puedes hacer esto
sub imprime_cajita(nombre,dato)
dim aux
if transforma_valor_buleano(dato) = "Si" then ' que serialomismo que poner if dato = true then
aux = "checked=""checked"""
else
aux = ""
end if
response.write "<input type=""checkbox"" "& aux &" name="""& nombre &""" />"
end sub
y la llamas
call imprime_cajita("nombre_cajita",rs("valor_de_la_bd" ))
o algo asi.