Popular Combobox com TXT

Assuntos Gerais
#1

Pessoal, alguem saberia me dizer como eu posso popular um combobox dinamico com AJAX ou qualquer outra coisa, mas que ele venha de um TXT?
Eu poderia colocar em um vetor antes sei la… mas como popular um combobox apartir de um Vetor? Ja procurei na net, mas só tem para banco de dados. Ou XML. :frowning:

#2

Brow, vai iterando o vetor e adicionando no combo simples assim …

#3 
<DIV id="cabecalho">
<TABLE width="1002" height="93" border="0" cellpadding="0" cellspacing="0">
<!-- #INCLUDE virtual = "topo.asp" -->
</TABLE>
<TABLE width="1003" border="0">
  <TR>
    <TD width="219px" rowspan="2" valign="top">
    <DIV id="menu">
			<!-- #INCLUDE virtual = "menu.asp"-->
	</DIV>    
    </TD>
    <TD valign="top">
    <TABLE border="0" cellpadding="0" cellspacing="0">
      <TR>
        <TD width="71%" height="23" align="left">
<!-- #INCLUDE virtual = "ofertaCetipNet.asp" -->        
        </TD>
      </TR>
    </TABLE></TD>
  </TR>
  <TR>
    <TD >
<DIV id="conteudo">
<TABLE id="tabela">
     <TBODY>
      <TR>
        <TD width="1049"><SPAN class="titulo_nivel2_line2">Características de Emissão</SPAN>
          <HR style="BORDER-RIGHT: #44a9d8 1px dashed; BORDER-TOP: #44a9d8 1px dashed; BORDER-LEFT: #44a9d8 1px dashed; BORDER-BOTTOM: #44a9d8 1px dashed" SIZE=1>          </TD>
        </TR>
      </TBODY></TABLE>



<br>
<form name="form1" method="post" action="caracteristicas_valores_mobiliarios.asp">
  <table width="700"  border="0" align="center">
    <tr>
      <td><TABLE width="700" border="0" cellpadding="0" cellspacing="0" class="destaque_1_texto">
          <TR>
            <TD width="235" height="29" align="right"><p>
                <%   
Dim objFSO1   
'O objeto FileSystemObject   
Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")   
  
Dim varArquivo   
'Abrindo o arquivo de texto   
Set varArquivo = objFSO1.OpenTextFile(server.MapPath("caracteristica/caracteristica.txt"), 1)   
  
Dim arrayLinha   
Do while not varArquivo.AtEndOfStream   
  
'Separando os dados entre ponto-e-vírgula   
arrayLinha=split(varArquivo.ReadLine,";",-1,1)   
  
'Verificando se é da orelha Títulos da CETIP   
'if arrayLinha(0)= "4" then   
  
Dim Ativo   
  
Ativo = arrayLinha(0)   
Codigo = arrayLinha(7)   
'response.Write(Ativo)   
%>   
              Emissor:</p></TD>   
            <TD width="13"> </TD>   
            <TD width="497" valign="middle" class="destaque_1_texto"><select name="emissor" id="emissor" class="destaque_1_texto" style="width: 200px;">   
                <option class="destaque_1_texto"><%=arrayLinha(0)%></option>   
            </select></TD>   
          </TR>   
          <TR>   
            <TD height="28" align="right">Agente Fiduciário:</TD>   
            <TD> </TD>   
            <TD valign="middle" class="destaque_1_texto"><select name="select2" id="select2" class="destaque_1_texto" style="width: 200px;">   
                <option class="destaque_1_texto"><%=arrayLinha(16)%></option>   
            </select></TD>   
          </TR>   
          <TR>   
            <TD height="28" align="right">Tipo de Índice:</TD>   
            <TD> </TD>   
            <TD valign="middle"><select name="select" id="select" class="destaque_1_texto" style="width: 200px;">   
              <option class="destaque_1_texto"><%=arrayLinha(16)%></option>   
            </select></TD>   
          </TR>   
          <TR>   
            <TD height="28" align="right" class="destaque_1_texto">Emitidos a partir:</TD>   
            <TD> </TD>   
            <TD valign="middle"><input name="textfield" type="text" id="textfield" size="2" maxlength="2" class="destaque_1_texto">   
                <input name="textfield2" type="text" id="textfield2" size="2" maxlength="2" class="destaque_1_texto">   
                <input name="textfield3" type="text" id="textfield3" size="4" maxlength="4" class="destaque_1_texto"></TD>   
          </TR>   
          <TR>   
            <TD height="31" align="right" valign="middle" class="destaque_1_texto">Coordenador Líder:</TD>   
            <TD valign="middle"> </TD>   
            <TD valign="middle"><select name="select4" id="select4" class="destaque_1_texto" style="width: 200px;">   
                <option class="destaque_1_texto"><%=arrayLinha(37)%></option>   
            </select></TD>   
          </TR>   
          <TR>   
            <TD align="right" valign="middle" class="destaque_1_texto">Espécie / Garantia</TD>   
            <TD valign="middle"> </TD>   
            <TD height="31" valign="middle"><select name="select5" id="select5" class="destaque_1_texto" style="width: 200px;">   
                <option class="destaque_1_texto"><%=arrayLinha(15)%></option>   
              </select></TD>   
          </TR>   
          <TR>   
            <TD align="right" valign="middle" class="destaque_1_texto">Código de IF:</TD>   
            <TD valign="middle"> </TD>   
            <TD height="31"  valign="middle"><select name="select3" id="select3" class="destaque_1_texto" style="width: 200px;">   
              <option class="destaque_1_texto"><%=arrayLinha(15)%></option>   
            </select>   
            
              <%loop%>  
              
              </TD>
          </TR>
          <TR>
            <TD align="right" class="destaque_1_texto">&nbsp;</TD>
            <TD>&nbsp;</TD>
            <TD valign="bottom">&nbsp;</TD>
          </TR>
          <TR>
            <TD align="right" class="destaque_1_texto">&nbsp;</TD>
            <TD>&nbsp;</TD>
            <TD valign="bottom"><input type="submit" name="button" id="button" value="Enviar">
&nbsp; &nbsp;&nbsp;</TD>
          </TR>
      </TABLE></td>
    </tr>
  </table>
</form>
</DIV>

Não esta lendo nada, o diretório esta correto e esta separado por “;”.
Pior? Dias atras funcionava pelo menos a leitura e escrevia varias vezes com valores de combos diferentes. hoje nem le.
¬¬

#4