Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bimpercursso

Combos dinamicas

Por , em ASP Clássico

Recommended Posts

bimpercursso    0

bimpercursso
Postado

Ae pessoal do forum, to precisando de uma ajudinha de vcs, é o seguinte, tenho que fazer uma busca por combos box, entre UF - Cidade - Bairro, mas preciso fazer aparecer os valores relacionados ao resultado da combo a cima, exemplo

 

 

combo 1 : UF : EU SELECIONO SP

combo 2 : Cidade : Lista as cidades de SP

combo 3 : Bairros : Lista os bairros selecionados da cidade escolhida

 

tenho um site como exemplo aqui comigo, vejam

 

http://www.achescola.com.br/homologacao/

 

alguma sugestão? eu acho que isso é feito em ajax, mas como nao manjo de ajax e nao tenho muito tempo para resolver esse caso postei aqui no forum para que algum amigo me ajude a resolver isso

 

obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

para fazer como no site indicado faça com ajax, caso queira fazer com javascript(vai demorar no primeiro carregamento) faça assim

 

<%StrPwd	  = "root"	  'Senha do usuário do DbStrUid	  = "root"	  'Nome de usuário do DbStrServer   = "localhost" 'Servidor	StrDataBase = "bagunca"   'Banco de dados Set ObjConn = Server.CreateObject("ADODB.Connection")	ObjConn.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER="&StrServer&";DATABASE="&StrDataBase&"; UID="&StrUid&"; PWD="&StrPwd&";OPTION=35"Response.Write("<script>") & CHR(13) Response.Write("function select (form) {") & CHR(13) Response.Write("switch (form.Categoria.options[form.Categoria.selectedIndex].value) {") & CHR(13)set categorias = objconn.execute("select * from categoria")While (not categorias.EOF)Response.Write("case '" + CSTR(categorias.Fields.Item("id").Value) + "':") & CHR(13)Response.Write("form.Subcategoria.length=0;") & CHR(13)dim v, catv = 0cat = CSTR(categorias.Fields.Item("id").Value)Dim subcategoriasDim subcategorias_numRowsSet subcategorias = objconn.execute("SELECT * FROM SUBCATEGORIA where id_cat = " + cat)While (not subcategorias.EOF)Response.Write("form.Subcategoria.options["+ CSTR(v) +"] = new Option('" + CSTR((subcategorias.Fields.Item("nome").Value)) + "','" + CSTR((subcategorias.Fields.Item("id").Value)) + "');") & CHR(13)v = v + 1subcategorias.movenext()wendResponse.write("break;") & CHR(13)Response.Write(" ") & CHR(13)categorias.movenext()wend Response.Write("}") & CHR(13)Response.Write("}") & CHR(13)Response.Write("</script>") & CHR(13)%><body><form id="form1" name="form1" method="post" action="">  <select name="Categoria" id="Categoria" onChange="select(this.form);"><%categorias.movefirstdo while not categorias.eof%>	<option value="<%=categorias("id")%>"><%=categorias("nome")%></option><%categorias.movenextloop%>  </select>  <select name="Subcategoria" id="Subcategoria">	<option value="2">2</option>  </select></form></body>

retirei a base de algum lugar, acho que foi daqui do fórum

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito