ListBox c/ Access

[Jorge Henrique 0]

Caros

 

É o seguinte estou retornando os valores para dentro de um formulario certo onde eu vou fazer alterações

do mesmo e eu tenho os listmenu onde traz tb os dados do banco certo?

Mas eu preciso q já apareça selecionado a opção que o cara escolheu.

 

Abaixo está meu código que faz o While do campo listBox para formar o menu, mas preciso que na alteração a opção já apareça selecionada.

 

<label for="">Categorias:</label>

<%

Dim strCheck

strSQL = "SELECT * FROM categorias WHERE flgativo = 's' ORDER BY desc_categ"

Call abreConexao

Set RS = conexao.Execute(strSQL)

 

IF not RS.EOF THEN

%>

<select size="1" name="categoria">

 

<% While not RS.Eof

strCheck = ""

%>

<option value="<% = RS("id_categ") %>"><% = RS("desc_categ") %></option>

<%

RS.MoveNext

Wend

%>

</select>

<%

end if

%>

<br />

 

 

Dúvidas de Jorge Henrique C.S.

[manga 0]

Você pode criar uma variável Session para a opção selecionada, depois inclua no seu Loop:

 

If Rs("id_categ") = Session("categ") Thenescolha = "selected"Elseescolha = ""End If

Depois monte os options:

 

<option <%=escolha%> value ...

 

T+

Manga