<%
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
Dim wProposta, wNome, wCodigo, wCertificado, wCPF_CNPJ, wCidade, wEmpresa
wProposta=request.item("Proposta")
wNome=request.item("Nome")
wCodigo=request.item("Codigo")
wCertificado=request.item("Certificado")
wCPF_CNPJ=request.item("CPF_CNPJ")
wCidade=request.item("Cidade")
wSQL="SELECT P.ID AS PROPOSTA, C.NOME, PL.DESCRICAO AS PLANO, P.STATUS, E.NOME AS EMPRESA"
wSQL=wSQL & " FROM PROPOSTAS P"
wSQL=wSQL & " LEFT JOIN EMPRESAS E "
wSQL=wSQL & " ON E.ID = P.ID_EMPRESA"
wSQL=wSQL & " LEFT JOIN PROPOSTAS_CLIENTES PC"
wSQL=wSQL & " ON PC.ID_PROPOSTA = P.ID"
wSQL=wSQL & " LEFT JOIN CLIENTES C"
wSQL=wSQL & " ON C.ID = PC.ID_CLIENTE"
wSQL=wSQL & " LEFT JOIN PLANOS PL"
wSQL=wSQL & " ON PL.ID = PC.ID_PLANO"
wSQL=wSQL & " WHERE 1=1"
if wProposta <> "" then
wSQL=wSQL & " AND P.ID = " & wProposta
end if
if wNome <> "" then
wSQL=wSQL & " AND C.NOME LIKE " & "%'" & wNome & "'%"
end if
if wCodigo <> "" then
wSQL=wSQL & " AND C.ID = " & wCodigo
end if
if wCertificado <> "" then
wSQL=wSQL & " AND PC.CERTIFICADO = " & "'" & wCertificado & "'"
end if
if wCPF_CNPJ <> "" then
wSQL=wSQL & " AND C.CPF_CNPJ = " & "'" & wCPF_CNPJ & "'"
end if
if wCidade <> "" then
wSQL=wSQL & " AND C.CIDADE LIKE " & "%'" & wCIDADE & "'%"
end if
Set TabProposta = Database.Execute(wSQL)
%>