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!
Discussão (4)
Carregando comentários...