[Resolvido] Consulta BD e retornar checkbox marcados

Bom dia pessoal! Já procurei em vários locais, tentei adaptar mas não funcionou.

No banco de dados, possuo vários campos onde estão sempre 2 valores. Ou o nome "SIM" ou em branco.

Então faço assim:

Realizo uma busca que retorna um resultado apenas. Lista todos os dados do formulário de texto e agora preciso que deixe marcado ou não o campo de checkbox.

Estou utilizando o seguinte código:

<%

dim P14_16_12, P16_18_13, P19_21_12

P14_16_12 = Request.QueryString("P14_16_12")
P16_18_13 = Request.QueryString("P16_18_13")
P19_21_12 = Request.QueryString("P19_21_12")

If P14_16_12 = "checkbox" then
P14_16_12 = 1
else
P14_16_12 = 0
end if

If P16_18_13 = "checkbox" then
P16_18_13 = 1
else
P16_18_13 = 0
end if

If P19_21_12 = "checkbox" then
P19_21_12 = 1
else
P19_21_12 = 0
end if

%>

E depois para marcar ou deixar desmarcado, o seguinte código:

<%If P16_18_12 = True Then

P16_18_12 = "checked"

Response.Write("<input type='checkbox' name='P16_18_12' value='checkbox' "& P16_18_12 & ">")

else

Response.Write("<input type='checkbox' name='P16_18_12' value='checkbox' "& P16_18_12 & ">")
End If
%>

Só que não aparecem marcados os checkbox nem dá erro.

Alguém poderia me ajudar por favor?

Grato,

Gabriel