probá de cambiar toda la parte del if por esto:
<% tmp = Rs(arrCampos(i)) : if tmp = 1 then Response.Write " CHECKED"%>
o por...
<% if Rs(arrCampos(i)) = 1 then Response.Write " CHECKED"%>
O... no sé... jugá un poco con el código a ver qué sale.
Saludos
PD: ¿Aquí no había más mensajes?