Publicado em 10 de jul.

Select Dinamico

boa noite galera,

Bom...eu tenho 2 selects..

No primeiro eu faço um distinct e pego as datas.

No segundo eu faço um agrupamento e pego os arquivos de cada mes.

<ul id="MenuBar1" class="MenuBarHorizontal">
 <li><a class="MenuBarItemSubmenu" href="#">Escolha o mes</a>
 <ul>
 <li><a href="#" class="MenuBarItemSubmenu">Janeiro</a>
 <ul>
 <li><a href="#">Item 1.1.1</a></li>
 <li><a href="#">Item 1.1.2</a></li>
 <li><a href="#">Item 1.1.3</a></li>
 </ul>
 </li>
 </ul>
<ul>
 <li><a href="#" class="MenuBarItemSubmenu">Fevereiro</a>
 <ul>
 <li><a href="#">Item 1.1.1</a></li>
 <li><a href="#">Item 1.1.2</a></li>
 <li><a href="#">Item 1.1.3</a></li>
 </ul>
 </li>
 </ul>
 </li>
</ul>

Como eu faço para essas 2 consultas ficarem dinamicas ?

<ul id="MenuBar1" class="MenuBarHorizontal">
 <li><a class="MenuBarItemSubmenu" href="#">Escolha o mes</a>
 <ul>

<%while rs.EOF=false%>

 <li><a href="#" class="MenuBarItemSubmenu"><%rs.meses%></a>
 <ul>
 <li><a href="#"><%rs2.arquivos%></a></li>
 </ul>
 <%next
 rs.MoveNext%>
 </li>
 </ul>

obrigado pela ajuda.

Discussão (3)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

xanburzum· 10 de jul.

Existem alguns modelos que postei no fórum até alguns com o uso de AJAX, jquery etc, mas aqui vai um exemplo.

default.asp

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Selecione um estado primeiro</title>

<script type="text/javascript" src="js/scriptaculous/prototype.js"></script>
<script type="text/javascript">

//<![CDATA[
function CarregaCidades( SelectEstado, div_destino )
{
// Nova requisi?o AJAX do prototype
new Ajax.Request('cidades.asp?estadoId=' + SelectEstado.value,
{
method : 'get',

 onCreate:function()
 {
 $(div_destino).innerHTML = 'Carregando as cidades...';
 }, // onCreate
 onComplete : function(transport)
 {
 if(transport.status==200)
 {
 $(div_destino).innerHTML = transport.responseText;
 } // transport.status
 } // onComplete
 }); // ajax Request

} // function CarregaCidades
//]]>

</script>
</head>

<body>
<form>
<select id="estado" name="estado" onChange="CarregaCidades(this, 'lista_cidades')">
 <option selected="selected" value="null">Selecione um estado...</option>

<%
ESTADO = "SELECT * FROM ESTADOS ORDER BY estado"
Rs.Open ESTADO, Cn, 3, 1
If Rs.Eof = False Then
Do
If Rs.Eof = True Then Exit Do
%>
<option value="<%=Rs("Id")%>"><%=Rs("estado")%></option>
<%
Rs.MoveNext
Loop
End If
Rs.Close
%>

</select><br />
<div id="lista_cidades">Selecione um estado primeiro...</div>
</form>
</body>

<%
set Rs= Nothing
set Cn = Nothing
%>
</html>

Página cidades.asp:

<%
Dim Cn
Set Cn = Server.CreateObject("ADODB.Connection")
set Rs = server.createObject("ADODB.Recordset")
Cn.ConnectionString = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=xxxxx;PORT=3306;DATABASE=xxxxx;USER=xxxxx;PASSWORD=xxxxx;OPTION=3
;")
Cn.Open
%>

<select id="cidade" name="cidade">
 <option selected="selected" value="null">Selecione uma cidade...</option>

<%
ID = Request.QueryString("estadoId")
SQL = "SELECT * FROM CIDADES WHERE id_estado = '"&ID&"' ORDER By cidade"
Rs.Open SQL, Cn, 3, 1
If Rs.Eof = False Then
Do
If Rs.Eof = True Then Exit Do
%>
<option value="<%=Rs("Id")%>"><%=Rs("cidade")%></option>
<%
Rs.MoveNext
Loop
End If
Rs.Close
%>

<%
set Rs= Nothing
set Cn = Nothing
%>
</select>

As TABELAS do banco de dados foram feitas assim:
CIDADES
Id - AutoNumeração
cidade - texto (255 caracteres)
id_estado - texto (5 caracteres)

ESTADOS
Id - AutoNumeração
estado - texto (255 caracteres)

Morpheus#2005· 10 de jul.

Funcionou perfeito...só que tenho mais um probleminha

<table width="800" border="0" align="center">
 <tr>
 <td>Nome Fantasia </td>
 <td><b><%=(Busca_Extrato.Fields.Item("NOME_ABREVIADO").Value)%></b></td>
 <td>CNPJ:</td>
 <td><b><%=(Busca_Extrato.Fields.Item("CNPJ").Value)%></b></td>
 </tr>
 <tr>
 <td>Fornecedor SAP</td>
 <td><b><%=(Busca_Extrato.Fields.Item("FORN_SAP").Value)%></b></td>
 <td>Doc. SAP</td>
 <td><b><%=(Busca_Extrato.Fields.Item("NUM_DOC_SAP").Value)%></b></td>
 </tr>
 <tr>
 <td>Valor NF</td>
 <td><b><%=(Busca_Extrato.Fields.Item("VALOR").Value)%></b></td>
 <td>Quantidade</td>
 <td><b><%=(Busca_Extrato.Fields.Item("TOTAL").Value)%></b></td>
 </tr>
 <tr>
 <td>Ciclo</td>
 <td><b><%=(Busca_Extrato.Fields.Item("CICLO").Value)%></b></td>
 <td>Mês Ref:</td>
 <td><b><%=(Busca_Extrato.Fields.Item("MES").Value)%>/<%=(Busca_Extrato.Fields.Item("ANO").Value)%></b></td>
 </tr>
</table>
Ao escolher o ultimo Select, como eu faço para atualizar os dados dessa consulta?

X@nBuRzUm obrigado pelo Helpppppp

...

xanburzum· 10 de jul.

vc quer atualizar no banco ou apenas no form ?