Um dos mais velhos amigos do HTML é o SELECT, a popular "caixa combo". Uma das grandes vantagens que ele ofereçe é a opcção "Multiple" que transforma a combo box em uma list box (caixa de listagem), onde podemos escolher vários valores de uma só vez. Acho que a maioria conhece como funciona :
Código:
<select size="10" name="caixa" multiple>
<option> Valor 1
<option> Valor 2
<option> Valor 3
<option> Valor 4
<option> Valor 5
</select>
Ao receber esse valor enviado do formulário :
Código:
Response.Write Request.Form("caixa")
Os valores selecionados na caixa vêm no seguinte formato :
Citação:
Valor 1, Valor 2, Valor 3, Valor 4, Valor 5
Os valores vem com o separador de lista padrão (
,). Para trabalhar com os valores e coloca-los em uma array ou tomar alguma decisão, use a rotina a seguir:
Código:
Dim caixa, itens, item , n
caixa = Request.Form("caixa")
If Len(caixa) = 0 then
Response.Write "Não foi selecionado nenhum item."
Else
Do While True
itens = InStr(n + 1,caixa,"," ,vbTextCompare)
If itens = 0 then
item = Mid(caixa, n + 1)
'Ações a serem tomadas. Nesse caso foi selecionado apenas 1 item
Else
item = Mid(caixa, n + 1, itens - n - 1)
'Ações a serem tomadas. Nesse caso foi selecionado mais de 1 item do Select
End If
n = itens
If itens = 0 then Exit Do
Loop
End If
Parecia um negócio simples, né? Pois é...Lembre-se sempre do que diria o Sr. Miagui, mestre do pequeno Karate Kid Daniel San: ...Ah, eu não lembro mais o que ele falava. Mas devia ser profundo.
Fonte: Lula.PRO
