Menu Dropdown

[BethD 0]

Ola,

 

estou com uma duvida com relacao ao selectedindex de um menu dropdown em vbscript.

 

Tenho um menu e depois de selecionada a opcao desejada o formulario é submetido atraves do evento onChange.

 

Consigo fazer a opcao selecionada aparecer adicionalmente na lista, mas gostaria de evitar que aparecesse a opcao selecionada e a lista completa.

Exemplo:

 

Menu

 

Projeto 1

Projeto 2

Projeto 3

 

Seleciono o Projeto 2 e o formulario é submetido.

 

O Menu aparece com a opcao selecionada e todas as outras.

 

Projeto 2

Projeto 1

Projeto 2

Projeto 3

 

Nao estou conseguindo fazer a referencia para o indice selecionado.

 

Agradeco se alguem puder me dar uma dica.

[Ted k' 126]

a referência é:

<select name="teste">
	<option>Projeto 1</option>
	<option>Projeto 2</option>
	<option>Projeto 3</option>
</select>

ai você faz referência

<select name="teste">
	<option <% If Request.Form("teste") = "Projeto 1" Then : Response.Write("selected") : End If %>>Projeto 1</option>
	<option <% If Request.Form("teste") = "Projeto 2" Then : Response.Write("selected") : End If %>>Projeto 2</option>
	<option <% If Request.Form("teste") = "Projeto 3" Then : Response.Write("selected") : End If %>>Projeto 3</option>
</select>

tomara que seja isso ai que você quer, hehe!

[CaBo GeL 0]

Desse Jeito q o nosso amigo Ted k' postou vai funcionar... porem ñ desse jeito:

 

Projeto 2

Projeto 1

Projeto 2

Projeto 3

 

e sim desse jeito:

 

Projeto 1

Projeto 2 <- Selecionado

Projeto 3

 

Caso keria da 1° forma, você pode usar CASE ou IF.. mostrando o valor acima de outros numerais!

 

at+

[BethD 0]

a referência é:

<select name="teste">
	<option>Projeto 1</option>
	<option>Projeto 2</option>
	<option>Projeto 3</option>
</select>

ai você faz referência

<select name="teste">
	<option <% If Request.Form("teste") = "Projeto 1" Then : Response.Write("selected") : End If %>>Projeto 1</option>
	<option <% If Request.Form("teste") = "Projeto 2" Then : Response.Write("selected") : End If %>>Projeto 2</option>
	<option <% If Request.Form("teste") = "Projeto 3" Then : Response.Write("selected") : End If %>>Projeto 3</option>
</select>

tomara que seja isso ai que você quer, hehe!

Oi,

 

obrigada pela resposta.

Eu havia chego a esta mesma solucao ontem.

 

Mas o que eu queria mesmo era:

 

1) o codigo em VBSCRIPT.

2) fazer as opcoes do 2.menu depententes da opcao selecionada no 1.menu

 

O que esta funcionando agora é a verificacao da opcao selecionada em ASP e o Case para o 2.Menu em VBSCRIPT.

Gostaria de deixar tudo na mesma linguagem.

 

Alguma sugestao?

[DragonBR 0]

De uma olhada numa das minhas funções

 

'listaCombo(combo, seleciona)

function listaCombo(combo, seleciona)

dim title, style, y

if combo = "unidade" then

'Essa funcao tras um array(x,x) com o resultado da consulta no sql, e tb cont com quantidade de registros

call getUnidade(" ORDER BY nmUnidade")

 

style ="font-size:11px; width:160px; border:#999999 solid 1px; height:14px;"

title ="<option value=""NULL"" >.: Selecione a Unidade:.</option>"

y = 2

if cont > - 1 then

listaCombo = "<select id="""&combo&""" name="""&combo&""" style="""&style&""" onchange=""java script: selecionaUnidade(this.value, 'reserva'); "" >"&vbCR&title &vbCR

 

for x = 0 to cont

if seleciona = cStr(ary(0, x)) then

listaCombo = listaCombo & "<option "&selected&" value="""&ary(0, x)&""" >" &ary(y, x) & "</option>"&vbCR

else

listaCombo = listaCombo & "<option value="""&ary(0, x)&""" >" &ary(y, x) & "</option>"&vbCR

end if

 

next

listaCombo = listaCombo & "</select>"&vbCR

end if

end if

end function