Alteração Na Busca...

[Guest Weber]

Pessoal, tenho um sistema de busca que tem os seguintes campos:

busca por tipo de empresa(gráfica, jornais, editoras,...), e busca por estado(UF), ou seja, a busca é realizada apenas se o usuario selecionar esses dois campos e se não tiver nenhum registro cadastrado retorna uma msg "não foram encontrados...", eu gostaria de incluir neste comando sql o seguinte, além de ter esta opção de filtrar por seguimento e estado, também ter a opção de apenas escolher o seguimento desta empresa e obter o resultado deste seguimento em diversos estados(UF).

EX: busca 1 (Já esta feita);

Editoras: SP

busca 2 (minha dúvida);

Editoras: SP,SC,AC,TO,...

Teria como no mesmo código, ou teria que criar uma outra pg para esta busca?

Meu SQL:

Tipo = Request.Form("Tipo")

Estado = Request.Form("Estado")

call abreconexao

Set rs = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "

set rsCad_Empresa=conexao.execute(SQL)

Agradeço desde já.

[cyberalexxx]

como voce seleciona a UF?? é combo box?? se for você pode colocar a opção todos com o value todos então o código ficaria assim:

Tipo = Request.Form("Tipo")
Estado = Request.Form("Estado")
call abreconexao
Set rs = Server.CreateObject("ADODB.Recordset")

if estado<>"todos" then
   SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "
else
   SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "
end if
   
set rsCad_Empresa=conexao.execute(SQL)

[Guest Guest]

Acho que o problema esta no loop, pois se eu escolho seguimento - Todos ele me retorna a msg do response.write.

<%

If not rsCad_Empresa.EOF Then

Do until rsCad_Empresa.EOF

%>

- CONTEUDO -

<%

rsCad_Empresa.Movenext

Loop

Call fechaconexao

else

Response.Write "<font size='3' color='red'><B>Não foram encontrados registros...</B></font>

end if

%>

[cyberalexxx]

O loop aparentemente esta correto, faz isso aki e posta o resultado:

Tipo = Request.Form("Tipo")

Estado = Request.Form("Estado")

call abreconexao

Set rs = Server.CreateObject("ADODB.Recordset")

if estado<>"todos" then

  SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "

else

  SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "

end if

response.write sql : response.end

set rsCad_Empresa=conexao.execute(SQL)

só pra testar se a busca esta correta

[Guest weber]

resultado:

SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = 'Agencia' and UF = 'Todos' order by Razao_Social Asc

[cyberalexxx]

pode ser problema de case sensitive no if, tenta assim:

Tipo = Request.Form("Tipo")

Estado = Request.Form("Estado")

call abreconexao

Set rs = Server.CreateObject("ADODB.Recordset")

if estado<>"Todos" then

  SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' and UF = '" & Estado & "' order by Razao_Social Asc "

else

  SQL = "SELECT * FROM Cad_Empresa WHERE Tipo_Empresa = '" & Tipo & "' order by UF, Razao_Social Asc "

end if

set rsCad_Empresa=conexao.execute(SQL)

[Guest weber]

Cara, na mosca!!!!

obrigado mais uma vez.....

Fechou

[cyberalexxx]

Cara, na mosca!!!!

obrigado mais uma vez.....

Fechou

OK!!

Tópico fechado!!

qualquer coisa manda PM pra algum mod abri o tópico!!