Split pa marcar select

[wander 0]

Seguinte pessoal,

 

Usei o split certa vez e deu certo, mas nesse caso não tá funcionando.

Tô querendo o seguinte:

Tenho um campo de um Recordset que me traz valores separados por vírgula (prodok)

e na sequencia estou preenchendo um select com base numa tabela de produtos, quero marcar (com selected) os produtos que constarem na variável "prodok".

O código está abaixo, mas não tá dando certo.

Já imprimi o Loop que consulta a variável e está lendo certinho, o problema está na hora de comparar os campos... <_<

 

<select multiple="true" name="select_produto" size="5">  <% Dim prodok,prodok2,iloop3,verifica     prodok = (superficie("produto_superficie").Value)     prodok2=split(prodok,",")  while NOT produtos.EOF 	 todosprodutos = (produtos("id_produto").Value) 	 %> 	 <option value="<%=todosprodutos%>"  	 <% 	 for iLoop3=lbound(prodok2) to ubound(prodok2)    verifica=Trim(prodok2(iLoop3))    If todosprodutos = verifica Then %> 	 selected <% End If %><% next %>>    <%=(produtos("nome_produto").Value)%></option>   <%  produtos.MoveNext()  wend%>     	 </select>

[wander 0]

Putz.. valeu Bicicleta!Funcionou redondo!Gol de bicicleta!!!!