(Resolvido) Montar uma sql com campo select

[raphpac]

Boa dia,

Estou desenvolvendo um sistema, nele precisei fazer um codigo para montar um select(sql) pegando os dados selecionados pelo usuário.

Sendo que não esta me retornado na ordem desejada.

Esse codigo deverá ter mais repetições, abaixo so tem 3

alguém poderia me dar uma luz ? :wacko:

<%  For each registro in request.form
  
     If InStr(1,registro,"select") <> 0 and request.form(registro) <> "null" and request.form(registro) <> "" then
     
       If InStr(6,registro,"campo") <> 0 then
       campo = request.Form(registro)&" "
       end if
       
       If InStr(6,registro,"comparacao") <> 0 then
       comparacao = request.Form(registro)&" "
       end if
       
       If InStr(6,registro,"textocomp") <> 0 then
       textocomp = request.Form(registro)&" "
       end if
       
       If InStr(6,registro,"operador") <> 0 then
       operador = request.Form(registro)&" "
       end if
       
     end if
     
     sql = campo&comparacao&textocomp&operador ' IMPRIME o ultimo registro de   campo & comparacao & textocomp & operador
     'sql = sql&campo&comparacao&textocomp&operador 'IMPRIME TUDO ERRADO, DESORDENADO E COM VARIAS REPETIÇÕES DO MESMO CAMPO
      
  next

 response.Write("Select * from cadastros where "&sql&" ")


%>
            <select name="selectcampo1" id="selectcampo1">
              <option value="null">Nenhum</option>
              <option value="nome">Nome</option>
              <option value="vinculo">Vinculo</option>
              <option value="endereco">Endereço</option>
              <option value="bairro">Bairro</option>
              <option value="cidade">Cidade</option>
              <option value="estado">Estado</option>
              <option value="cep">CEP</option>
              <option value="tel1">Telefone</option>
              <option value="tel2">Telefone2</option>
              <option value="cel">Celular</option>
              <option value="fax">FAX</option>
              <option value="obs1">Obs1</option>
              <option value="obs2">Obs2</option>
              <option value="razao">Razão Social</option>
              <option value="contato">Contato</option>
              <option value="site">Site</option>
              <option value="email">Email</option>
              <option value="email2">Email2</option>
              <option value="datanasc">Data de Nasc</option>
              <option value="cnpj">CNPJ</option>
              <option value="ie">IE</option>
              <option value="cpf">CPF</option>
            </select>
            
              <select name="selectcomparacao1" id="selectcomparacao1">
                <option value="null" selected="selected"></option>
                <option value="=">Igual</option>
                <option value="<>">Diferente</option>
                <option value=">">Maior que</option>
                <option value="<">Menor que</option>
                <option value=">=">Maior que ou Igual</option>
                <option value="<=">Menor que ou Igual</option>
              </select>
              
              <input type="text" name="selecttextocomp1" id="selecttextocomp1" />

              <select name="selectoperador1" id="selectoperador1">
                <option value="null"></option>
                <option value="and">AND</option>
                <option value="or">OR</option>
                <option value="not">NOT</option>
              </select>

            <select name="selectcampo2" id="selectcampo2">
              <option value="null">Nenhum</option>
              <option value="nome">Nome</option>
              <option value="vinculo">Vinculo</option>
              <option value="endereco">Endereço</option>
              <option value="bairro">Bairro</option>
              <option value="cidade">Cidade</option>
              <option value="estado">Estado</option>
              <option value="cep">CEP</option>
              <option value="tel1">Telefone</option>
              <option value="tel2">Telefone2</option>
              <option value="cel">Celular</option>
              <option value="fax">FAX</option>
              <option value="obs1">Obs1</option>
              <option value="obs2">Obs2</option>
              <option value="razao">Razão Social</option>
              <option value="contato">Contato</option>
              <option value="site">Site</option>
              <option value="email">Email</option>
              <option value="email2">Email2</option>
              <option value="datanasc">Data de Nasc</option>
              <option value="cnpj">CNPJ</option>
              <option value="ie">IE</option>
              <option value="cpf">CPF</option>
            </select>
            
              <select name="selectcomparacao2" id="selectcomparacao2">
                <option value="null" selected="selected"></option>
                <option value="=">Igual</option>
                <option value="<>">Diferente</option>
                <option value=">">Maior que</option>
                <option value="<">Menor que</option>
                <option value=">=">Maior que ou Igual</option>
                <option value="<=">Menor que ou Igual</option>
              </select>
              
              <input type="text" name="selecttextocomp2" id="selecttextocomp2" />

              <select name="selectoperador2" id="selectoperador2">
                <option value="null"></option>
                <option value="and">AND</option>
                <option value="or">OR</option>
                <option value="not">NOT</option>
              </select>

            <select name="selectcampo3" id="selectcampo3">
              <option value="null">Nenhum</option>
              <option value="nome">Nome</option>
              <option value="vinculo">Vinculo</option>
              <option value="endereco">Endereço</option>
              <option value="bairro">Bairro</option>
              <option value="cidade">Cidade</option>
              <option value="estado">Estado</option>
              <option value="cep">CEP</option>
              <option value="tel1">Telefone</option>
              <option value="tel2">Telefone2</option>
              <option value="cel">Celular</option>
              <option value="fax">FAX</option>
              <option value="obs1">Obs1</option>
              <option value="obs2">Obs2</option>
              <option value="razao">Razão Social</option>
              <option value="contato">Contato</option>
              <option value="site">Site</option>
              <option value="email">Email</option>
              <option value="email2">Email2</option>
              <option value="datanasc">Data de Nasc</option>
              <option value="cnpj">CNPJ</option>
              <option value="ie">IE</option>
              <option value="cpf">CPF</option>
            </select>
              <select name="selectcomparacao3" id="selectcomparacao3">
                <option value="null" selected="selected"></option>
                <option value="=">Igual</option>
                <option value="<>">Diferente</option>
                <option value=">">Maior que</option>
                <option value="<">Menor que</option>
                <option value=">=">Maior que ou Igual</option>
                <option value="<=">Menor que ou Igual</option>
              </select>
              
              <input type="text" name="selecttextocomp3" id="selecttextocomp3" />

Obrigado

Raphael

[.Andreia.]

mas aonde está o while ?

[raphpac]

Não consegui aplicar o while,

Mas consegui contornar da seguinte forma:

Dim campos(10)
campos(0)=request.form("selectcampo1")
campos(1)=request.form("selectcomparacao1")
campos(2)=request.form("selecttextocomp1")
campos(3)=request.form("selectoperador1")
campos(4)=request.form("selectcampo2")
campos(5)=request.form("selectcomparacao2")
campos(6)=request.form("selecttextocomp2")
campos(7)=request.form("selectoperador2")
campos(8)=request.form("selectcampo3")
campos(9)=request.form("selectcomparacao3")
campos(10)=request.form("selecttextocomp3")

 For each item in campos
   
  if item <> "" and item <> "null" then
    sql = sql&" "&item&" "
  end if 
     
 Next

response.Write("Select * from cadastros where "&sql&" ")

Muito obrigado