Lista de checkbox usando Split

Bom dia a todos...

Estou com um projeto que, aparentemente, era simples e acabou se tornando uma dor de cabeça, que confesso está tirando o meu sono. Mas tenho certeza que com a ajuda de vocês seja possível resolvê-lo.

Vamos ao que interessa:

Segue uma estrutura de banco de dados como exemplo:

-
Tabelas (tbl_Cliente, tbl_Marcas)

-
tbl_Cliente: id (auto-numeração), Nome (texto), MarcasAtivas (texto longo).

-
tbl_Marcas: id (auto-numeração), Marca (texto).

Na página de inserção dos Dados segue o seguinte:

tbl_Marcas

ID

MARCAS

1

Volks

2

Ford

3

Chevrolet

4

Volvo

5

Fiat

 

tbl_Clientes

ID

CLIENTE

MARCASATIVAS

1

Teste1

1,3,5

2

Teste2

2,4

 

Agora vem o problema!

Preciso exibir todos as Marcas da tbl_Marcas e checkeed as marcas selecionada na tbl_Cliente.

Exemplo para o cliente Teste1:

Id: 1

Cliente: Teste1

MarcasAtivas:

×

Volks

Ford

×

Chevrolet

Volvo

×

Fiat

Segue o código que estou usando até o momento:

<%
if rsClientes("MarcasAtivas") <> "" then
Dim texto, arrayTexto, i
Dim rs, sql, conexao
texto = (rsClientes.Fields.Item("MarcasAtivas").Value)
arrayTexto = Split(texto,",")

set conexao = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")

localbd = MM_cnSystemBackstage_STRING
conexao.open localbd

For i = 0 to Ubound(arrayTexto)

sql = "select id, MarcaAtivas from tbl_Marcas where id = "&arrayTexto(i)&""

rs.open(sql), conexao
Fabrica = rs("Fabrica")

response.Write("<input type='checkbox' name='txt_MarcasInternas' id="&arrayTexto(i)&" checked disabled='disabled'><label for="&arrayTexto(i)&"> "&Fabrica&"<br></label>")

rs.close()

next
end if

conexao.close()
set conexao = nothing
%>

Da forma descrita acima, só exibe as marcas selecionadas e não todas as marcas juntas.

Me ajude aí... please!

Obrigado!