Busca - Estado / Cidade - select / checkbox -

[ricardo coelho designer 0]

Bom dia!Gostaria de solicitar a ajuda de vcs, logo abaixo segue o codigo que estou usando.Os problemas são:1 - Preciso que, se eu selecionar estado ele busque somente estado(o retorno é nenhum campo encontrado)2 - Quando é selecionado cada checkbox ele me mostre a pesquisa de acordo com a seleção ex: Selecionado só design ele busque (estado/cidade) todos que tem design no bd, se a pessoa seleciona redação aparecerá todas as pessoas que tem design e redação no bd.3 - Não sei se estou pedindo demais bom : a) Os campos só ficam selecionaveis se a opção estado estiver selecionada B) Os checkbox só ficam selecionaveis se a opção cidade estiver selecionada.4 - Ao fim dessa resolução colocarei o código aqui para download e código fonte, pois acho que será de grande ajuda para todos.5 - Enfim segue o código abaixo:

<!--#Include file="conexao2.asp"--><%Dim ConnDim RSDim RS2Dim SQLStmtDim idDim objConnDim stringSQLDim strConnectionDim rsRegistrosDim comandoSQLDim strURL     Dim cnnSearchDim rstSearch  Dim strDBPath  Dim strSQLDim strSearchDim strCidadeDim criacaoDim redacaoDim designDim direcaodearteDim direcaodecriacaoDim midiaDim animacaoDim producaograficaDim direcaoRTVDim edicaoRTVDim computacaograficainicio = TimerstrURL = Request.ServerVariables("URL")strSearch = Request.QueryString("search")strCidade = Request.QueryString("cidade")if Request ("criacao") = criacao Thencriacao = criacaoElseEnd ifif Request ("redacao") = redacao Thenredacao = 0Elseredacao = 1End ifif Request ("design") = design Thendesign = 0Elsedesign = 1End ifif Request ("direcaodearte") = direcaodearte Thendirecaodearte = 0Elsedirecaodearte = 1End ifif Request ("direcaodecriacao") = direcaodecriacao Thendirecaodecriacao = 0Elsedirecaodecriacao = 1End ifif Request ("midia") = midia Thenmidia = 0Elsemidia = 1End ifif Request ("animacao") = animacao Thenanimacao = 0Elseanimacao = 1End ifif Request ("producaografica") = producaografica Thenproducaografica = 0Elseproducaografica = 1End ifif Request ("direcaoRTV") = direcaoRTV ThendirecaoRTV = 0ElsedirecaoRTV = 1End ifif Request ("edicaoRTV") = edicaoRTV ThenedicaoRTV = 0ElseedicaoRTV = 1End ifif Request ("computacaografica") = computacaografica Thencomputacaografica = 0Elsecomputacaografica = 1End if%><title>http://www.superasp.com.br</title><table width="69%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2"><tr><td><p align="center"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Pesquisa o Estado::</font></STRONG></FONT></p><form action="<%= strURL %>" method="get"><div align="center"><%SQLStmt = "select * from estados ORDER BY estado ASC"rs.Open SQLStmt, conn, 2, 1%><select name="search" class="form_geral"><option selected> -- </option><%While Not rs.EOF%><option value="<%= rs.Fields("sigla") %>"><%= rs.Fields("sigla")%></option><%rs.MoveNextWendrs.close%></select><%SQLStmt = "select * from cadastresegeral ORDER BY Menucodigo ASC"rs.Open SQLStmt, conn, 2, 1%><select name="cidade" class="form_geral"><option selected> -- </option><%While Not rs.EOF%><option value="<%= rs.Fields("cadcidade") %>"><%= rs.Fields("cadcidade")%></option><%rs.MoveNextWendrs.close%></select><label><br />Criação<input name="criacao" type="checkbox" id="criacao" value="criacao" /></label><br /><label>Redação<input name="redacao" type="checkbox" id="redacao" value="redacao" /></label><br /><label>Design<input name="design" type="checkbox" id="design" value="design" /></label><br /><label>Direção de Arte <input name="direcaodearte" type="checkbox" id="direcaodearte" value="direcaodearte" /></label><br /><label>Direção de Criação <input name="direcaodecriacao" type="checkbox" id="direcaodecriacao" value="direcaodecriacao" /></label><br /><label>Mídia<input name="midia" type="checkbox" id="midia" value="midia" /></label><br /><label>Animação<input name="animacao" type="checkbox" id="animacao" value="animacao" /></label><br /><label>Produção Gráfica <input name="producaografica" type="checkbox" id="producaografica" value="producaografica" /></label><br /><label>Direção de RTV <input name="direcaodertv" type="checkbox" id="direcaodertv" value="direcaodertv" /></label><br /><label>Edição de RTV <input name="edicaodertv" type="checkbox" id="edicaodertv" value="edicaodertv" /></label><br /><label>Computação Gráfica <input name="computacaografica" type="checkbox" id="computacaografica" value="computacaografica" /></label><br /><input name="submit" type="submit" value="Pesquisar" /><label></label></div></form><p align="center"><%If strSearch <> "" ThenstrDBPath = Server.MapPath("vitrine.mdb")Const adUseClient = 3Set cnnSearch = Server.CreateObject("ADODB.Connection")cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"cnnSearch.CursorLocation = adUseClientstrSQL = "SELECT * " _& "FROM cadastresegeral " _& "WHERE cadestado LIKE '%" & strSearch & "%' " _& "and cadcidade LIKE '%" & strCidade & "%' " _& "and criacao LIKE '%" & criacao & "%' " _& "and redacao LIKE '%" & redacao & "%' " _& "and design LIKE '%" & design & "%' " _& "and direcaodearte LIKE '%" & direcaodearte & "%' " _& "and direcaodecriacao LIKE '%" & direcaodecriacao & "%' " _& "and midia LIKE '%" & midia & "%' " _& "and animacao LIKE '%" & animacao & "%' " _& "and producaografica LIKE '%" & producaografica & "%' " _& "and direcaoRTV LIKE '%" & direcaoRTV & "%' " _& "and edicaoRTV LIKE '%" & edicaoRTV & "%' " _& "and computacaografica LIKE '%" & computacaografica & "%' " _& "ORDER BY menucodigo;"Set rstSearch = cnnSearch.Execute(strSQL)intContador = rstSearch.RecordCount	%></p></td></tr></table><p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b>ocorrências ] </font> </p><div align="center"><table width="700" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF"><%Do While Not rstSearch.EOF%><tr>  <td width="115" align="center" valign="middle" bgcolor="#FFFFE6"><font size="1" face="Verdana"><img src="www.vitrinepublicitaria.net/<%= rstSearch.Fields("imagem").Value %>" width="80" height="80" /></font></td>      <td width="566" bgcolor="#FFFFE6"><p><font size="1" face="Verdana">Nome: <%= rstSearch.Fields("cadprimeiroNome").Value %></font> <font size="1" face="Verdana"><%= rstSearch.Fields("cadultimoNome").Value %></font><br />      <font size="1" face="Verdana">Link</font><font size="1" face="Verdana">: <a href="http://www.vitrinepublicitaria.net/<%= rstSearch.Fields("cadlogin").Value %>">www.vitrinepublicitaria.net/<%= rstSearch.Fields("cadlogin").Value %><br />            </a>Local: <%= rstSearch.Fields("cadcidade").Value %> - </font>      <font size="1" face="Verdana"><%= rstSearch.Fields("cadestado").Value %><br />        Possui experiência: <%= rstSearch.Fields("cadexperiencia").Value %><br />      Áreas: 	  	  <%if  rstSearch.Fields("criacao") = criacao Then%>      <%Else%>      criação -       <%End if%>      <%if  rstSearch.Fields("redacao") = redacao Then%>      <%Else%>      redação -       <%End if%>      <%if  rstSearch.Fields("design") = design Then%>      <%Else%>      design -       <%End if%>      <%if  rstSearch.Fields("direcaodearte") = direcaodearte Then%>      <%Else%>      direção de arte -       <%End if%>      <%if  rstSearch.Fields("direcaodecriacao") = direcaodecriacao Then%>      <%Else%>      direção de criação -       <%End if%>      <%if  rstSearch.Fields("midia") = midia Then%>      <%Else%>      mídia -       <%End if%>      <%if  rstSearch.Fields("animacao") = animacao Then%>      <%Else%>      animação -       <%End if%>      <%if  rstSearch.Fields("producaografica") = producaografica Then%>      <%Else%>      produção gráfica -       <%End if%>      <%if  rstSearch.Fields("direcaortv") = direcaortv Then%>      <%Else%>      direção rtv -       <%End if%>      <%if  rstSearch.Fields("edicaortv") = edicaortv Then%>      <%Else%>      edição rtv -       <%End if%>      <%if  rstSearch.Fields("computacaografica") = computacaografica Then%>      <%Else%>      computação gráfica -       <%End if%>  	  </font></p>  </td></tr><%rstSearch.MoveNextLoop%></table><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br> Sua busca foi processada em<%response.write FormatNumber( Timer - inicio, 2 )%>segundos.</font><br><%rstSearch.CloseSet rstSearch = NothingcnnSearch.CloseSet cnnSearch = NothingEnd If%></div></td></tr></table><p> </p>

[jrcardozo 4]

você quer somente com asp ou dinamicamente?

somente com asp terá que submeter a página a cada ação do usuario e fazer diversos testes

é mais facil com ajax, se quiser movo pra lá e o pessoal te dá uma força

 

caso queira com puro Asp podemos iniciar algo e você finaliza com base na lógica

 

um link para referencia com uso de ajax http://forum.imasters.com.br/index.php?showtopic=174644

[ricardo coelho designer 0]

você quer somente com asp ou dinamicamente?somente com asp terá que submeter a página a cada ação do usuario e fazer diversos testesé mais facil com ajax, se quiser movo pra lá e o pessoal te dá uma forçacaso queira com puro Asp podemos iniciar algo e você finaliza com base na lógicaum link para referencia com uso de ajax http://forum.imasters.com.br/index.php?showtopic=174644

A principio em asp, caso isso for dar muito trabalho ai podemos usar AJAX.

[ricardo coelho designer 0]

Para que todos tenham uma noção de como está o funcionamento desse código segue abaixo o link.

Preciso muito dessa ajuda...

 

http://www.vitrinepublicitaria.net/teste/procurabeta2.asp