Filtrar dados enviados por combo

[Web Design Valdeci 0]

Boa Tarde,

 

Estou fazendo um sisteminha simples de cadastro, e preciso fazer tipo um relatório dos clientes cadastrados.

Preciso de uma consulta sql que pegue os dados enviados de alguns combos e imprima na tela o resultado.

Vou posta o código q estou tentando fazer, mas ele esta pegando todos os regitros. presico de um tipo de

consulta que se o combo nao for selecionado no relatório ele nao o relacione na consulta.

 

(Este é o form que estou utilizando)

 

CODE

<form id="iMasters" name="iMasters" method="post" action="relatorios_teste.asp?opc=busca">

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">

<tr>

<td width="28%" class="txt_cinza_11">Nome/contato:</td>

<td width="72%"><label>

<input name="nome" type="text" class="txt" id="nome" size="40" />

</label></td>

</tr>

 

<tr>

<td class="txt_cinza_11">Departamento:</td>

<td><select name="setor" class="txt" id="setor">

<option value="0">Selecione o Departamento</option>

<option value="BM Comunicação">BM Comunicação</option>

<option value="Guia do Comércio">Guia do Comércio</option>

<option value="Speed Way">Speed Way</option>

</select></td>

</tr>

<tr>

<td class="txt_cinza_11">Atendente</td>

<td><label>

<select name="atendente" class="txt" id="atendente">

<option value="0">Selecione o atendente</option>

<option value="arianne">Arianne Stephanie</option>

<option value="glauce">Glaude Kelly</option>

<option value="valdeci">Valdeci Alves</option>

<option value="Leonardo">Leonardo Bulhões</option>

<option value="cassia">Cássia Regina</option>

<option value="michelle_a">Michelle Aline</option>

<option value="michelle_c">Michelle Chavier</option>

</select>

</label></td>

</tr>

 

<tr>

<td class="txt_cinza_11">Proposta Enviada? </td>

<td><label>

<select name="enviado" class="txt" id="enviado">

<option value="0">Selecione</option>

<option value="sim">Sim</option>

<option value="nao">Não</option>

</select>

</label></td>

</tr>

<tr>

<td class="txt_cinza_11">Retorno: </td>

<td><select name="retorno" class="txt" id="retorno">

<option value="0">Selecione</option>

<option value="Aguarda Retorno">Aguarda Retorno</option>

<option value="Ligar">Ligar</option>

<option value="Concluído">Concluído</option>

<option value="Não Quis">Não Quis</option>

</select></td>

</tr>

<tr>

<td><span class="txt_cinza_11">Telemarketing: </span></td>

<td><select name="mkt" class="txt" id="mkt">

<option value="0">Selecione</option>

<option value="ativo">Ativo</option>

<option value="receptivo">Receptivo</option>

</select></td>

</tr>

 

<tr>

<td> </td>

<td><label>

<input name="Submit" type="submit" class="botao" value="Buscar!" />

<input name="Submit2" type="reset" class="botao" value="Limpar!" />

</label></td>

</tr>

<tr>

<td> </td>

<td> </td>

</tr>

</table>

</form>

 

( esta é a consulta)

 

CODE

<%

opc = request.querystring("opc")

IF opc = "busca" THEN

nome = request.form("nome")

atendente = request.form("atendente")

setor = request.form("setor")

enviado = request.form("enviado")

retorno = request.form("retorno")

mkt = request.form("mkt")

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

cs_listar.ActiveConnection = strcon

cs_listar.Source = "SELECT * FROM `DADOS` WHERE `nome` = '"&nome&"' , `atendente` = '"&atendente&"' ,

`setor` = '"&setor&"' , `enviado` = '"&enviado&"' , `retorno` = '"&retorno&"' , `mkt` = '"&mkt&"'

ORDER BY data_add desc , hora_add desc"

cs_listar.CursorType = 0

cs_listar.CursorLocation = 3

cs_listar.LockType = 1

cs_listar.Open()

 

END IF

%>

 

(Esta é a tabela onde receberei os dados)

CODE

<table width="779" border="0" align="center" cellpadding="0" cellspacing="2">

<tr>

<td width="29" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="center">+</div></td>

<td width="155" bgcolor="#DFDFDF" class="txt_cinza_11_bold"> Nome</td>

<td width="114" bgcolor="#DFDFDF" class="txt_cinza_11_bold">Telefone</td>

<td width="212" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left">E-mail</div></td>

<td width="114" bgcolor="#DFDFDF" class="txt_cinza_11_bold">Departamento</td>

<td width="141" bgcolor="#DFDFDF" class="txt_cinza_11_bold"> Data Inclusão </td>

</tr>

<%

cont = 0

While (Not cs_listar.EOF)

var_id = cs_listar.Fields.Item("id").Value

var_nome = cs_listar.Fields.Item("nome").Value

var_empresa= cs_listar.Fields.Item("empresa").Value

var_telefone= cs_listar.Fields.Item("telefone").Value

var_email= cs_listar.Fields.Item("email").Value

var_atendente= cs_listar.Fields.Item("atendente").Value

var_tipo= cs_listar.Fields.Item("tipo").Value

var_setor= cs_listar.Fields.Item("setor").Value

var_enviado= cs_listar.Fields.Item("enviado").Value

var_retorno= cs_listar.Fields.Item("retorno").Value

var_mkt= cs_listar.Fields.Item("mkt").Value

var_obs= cs_listar.Fields.Item("obs").Value

var_adicionado = cs_listar.Fields.Item("data_add").Value&" - "&cs_listar.Fields.Item("hora_add").Value

if cont mod 2 = 0 then

cor_fundo = "#F2F2F2"

else

cor_fundo = "#FFFFFF"

end if

%>

<tr>

<td bgcolor="<%=cor_fundo%>"><div align="center"><a href="java script:;">

<img src="assets/img/IcAtualizar.gif" width="12" height="12" border="0"

onClick="MM_openBrWindow('dados.asp?opc=dados&id=<%=var_id%>','',

'scrollbars=yes,width=500,height=450')"></a></div></td>

<td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_nome%></div></td>

<td bgcolor="<%=cor_fundo%>"><span class="txt_cinza_11"> <%=var_telefone%></span></td>

<td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_email%></div></td>

<td bgcolor="<%=cor_fundo%>"><span class="txt_cinza_11"> <%=var_setor%></span></td>

<td bgcolor="<%=cor_fundo%>"><span class="txt_cinza_10"><%=var_adicionado%></span></td>

</tr>

<% cont = cont + 1

cs_listar.MoveNext()

Wend

%>

<% if cont = 0 then %>

<tr>

<td colspan="6" bgcolor="#EAEAEA"><div align="center"

class="txt_laranja_11">A Busca não retornou Dados! </div></td>

</tr>

<% end if %>

</table>

[Vadio 13]

eu programo mais em php então não ligue nos erros de sintaxe.

if CAMPOCOMBO <> "" OR CAMPOCOMBO <> "0" then
   sql = sql
else
   sql = sql & "add condição aqui"
end if

acho q seria algo +o- assim pelo q li

[Web Design Valdeci 0]

eu programo mais em php então não ligue nos erros de sintaxe.

if CAMPOCOMBO <> "" OR CAMPOCOMBO <> "0" then
   sql = sql
else
   sql = sql & "add condição aqui"
end if

acho q seria algo +o- assim pelo q li

 

 

Eu coloquei o If mas ele ainda continua listando todos... tenho cinco combos, se eu precisar saber os dados apenas de dois comboms e seleciona-los, os outros que não foram selecionados ficam como número zero... Eu gostaria que a consulta só buscasse onde tem algum valor diferente de zero ou de vazio... fiz assim mas mesmo assim ta dando pau...

 

veja

 

CODE

<%

opc = request.querystring("opc")

IF opc = "busca" THEN

if nome <> "" OR nome <> "0" then

nome = request.form("nome")

if atendente <> "" OR atendente <> "0" then

atendente = request.form("atendente")

if setor <> "" OR setor <> "0" then

setor = request.form("setor")

if enviado <> "" OR enviado <> "0" then

enviado = request.form("enviado")

if retorno <> "" OR retorno <> "0" then

retorno = request.form("retorno")

if mkt <> "" OR mkt <> "0" then

mkt = request.form("mkt")

 

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

cs_listar.ActiveConnection = strcon

cs_listar.Source = "SELECT * FROM DADOS WHERE nome = '"&nome&"' OR atendente = '"&atendente&"' OR setor = '"&setor&"' OR enviado = '"&enviado&"' OR retorno = '"&retorno&"' OR mkt = '"&mkt&"' ORDER BY data_add desc , hora_add desc"

cs_listar.CursorType = 0

cs_listar.CursorLocation = 3

cs_listar.LockType = 1

cs_listar.Open()

end if

end if

end if

end if

end if

end if

END IF

%>