Otimizando Lista

[Guest - Fernando -]

Galera, sou novo por aqui.... estou com uma dúvida de como otimizar um combo que recebe dados de um BD.

É o seguinte: Tenho em um BD uma série de ações. Quando preciso fazer atualizações em um determinado procedimento, necessito montar o combo com essas ações e setá-lo com o valor atribuido no cadastro deste procedimento. Só que faço uma sequencia de if para verificar o resultado do resultSet gerado por SQL e compará-lo....Segue um trecho do código....

strSQL = "SELECT * FROM AUDIENCIAS WHERE AU_SEQUENCIAL = '" & request.querystring("SeqAudiencia") & "'"
    Set rsAudiencias = Server.CreateObject("ADODB.Recordset")
    Set rsAudiencias.activeConnection = Session("CnSAPEscrita")
    rsAudiencias.Open strSQL

depois...

<td>Finalidade do Ato:</td>
      <td>
        <select <%=strDisabled%> name=selFinalidade>
          <option value = ""></option>
     <% If rsAudiencias("AU_FINALIDADE") = "Acareação" then %>
               <option value="Acareação" selected>Acareação</option>
            <% Else %>
               <option value="Acareação">Acareação</option>
            <% End If %>
            <% If rsAudiencias("AU_FINALIDADE") = "Audiência Admonitória" then %>
               <option value="Audiência Admonitória" selected>Audiência Admonitória</option>
            <% Else %>
               <option value="Audiência Admonitória">Audiência Admonitória</option>
            <% End If %>
            <% If rsAudiencias("AU_FINALIDADE") = "Escuta Telefônica" then %>
          <option value="Escuta Telefônica" selected>Escuta Telefônica</option>
     <% Else %>
          <option value="Escuta Telefônica">Escuta Telefônica</option>
     <% End if %>
            <% If rsAudiencias("AU_FINALIDADE") = "Inquirição de Ofendido" then %>
          <option value="Inquirição de Ofendido" selected>Inquirição de Ofendido</option>
     <% Else %>
          <option value="Inquirição de Ofendido">Inquirição de Ofendido</option>
     <% End if %>
            <% If rsAudiencias("AU_FINALIDADE") = "Inquirição de testemunhas" then %>
          <option value="Inquirição de testemunhas" selected>Inquirição de Testemunhas</option>
     <% Else %>
          <option value="Inquirição de testemunhas">Inquirição de Testemunhas</option>
     <% End if %>
            <% If rsAudiencias("AU_FINALIDADE") = "Inquirição de Testemunha de Defesa" then %>
          <option value="Inquirição de Testemunha de Defesa" selected>Inquirição de Testemunha de Defesa</option>
     <% Else %>
                                   .
                                   .
                                   .
 <% If rsAudiencias("AU_FINALIDADE") = "Outros" then %>
               <option value="Outros" selected>Outros</option>
            <% Else %>
               <option value="Outros">Outros</option>
            <% End If %> 

Alguém tem alguma solução???? Valeu.

[ursolouco]

Brother!!

Dentro do seu While.... faz um IF só... se der certo ou positivo a compração..

Response.Write("SELECTED")

na sua lista e pronto, já esta selecionado o item.

abraços[]

[Guest Guest]

acho que você não entendeu.... preciso montar todo o combo de novo e com a opção anterior selecionada....Se fizer uma comparação só, vou ter um combo com apenas uma opção e sem a possibilidade de alterar....