|
RESULTADO DA BUSCA Acesse o conteúdo do catálogo clicando no link. Para fechar esta tela clique aqui. <% 'Valores passados na busca Dim id_catalogo, id_fabricante, te_titulo, nm_local, nm_instrumento id_catalogo = request( "id_catalogo" ) id_fabricante = request( "id_fabricante" ) te_titulo = request( "te_titulo" ) nm_local = request( "nm_local" ) nm_instrumento = request( "nm_instrumento" ) 'Tratamento de filtro Dim sFiltro, sWhere trata_filtro sFiltro, sWhere Dim DSN DSN = Str_Conexao("catalogo") Dim SQL SQL = _ " SELECT A.id_catalogo, A.te_titulo, A.id_fabricante, A.nm_local, A.nu_pag, A.te_tamanho, A.id_tipo_documento, " & _ " A.id_idioma, A.nm_instrumento, A.te_notas ,B.nm_tipo_documento, C.nm_idioma, D.nm_fabricante, A.nu_qtd_fotos " & _ " FROM catalogo A" & _ " LEFT JOIN tipo_documento B ON A.id_tipo_documento = B.id_tipo_documento " & _ " LEFT JOIN tipo_idioma C ON A.id_idioma = C.id_idioma " & _ " LEFT JOIN fabricante_catalogo D ON A.id_fabricante = D.id_fabricante " &_ "" & sWhere & _ " ORDER BY te_titulo " 'Coleta as informacoes do banco de dados Dim rs set rs = Server.CreateObject( "ADODB.Recordset" ) ''response.write SQL ''response.end 'Conecta ao BD pelo DSN e abre a consulta rs.open SQL, DSN, 1, 1 '-------------------------------------------------------------------------------------- 'Verifica se algum filtro foi selecionado na personalizada ' O Filtro quando é passado por parametro é passado no formato: ' filtro=campo1;valor1,campo2;valor2 ' na hora de coletar ele filtrada todos os campos1 com valor1, etc '-------------------------------------------------------------------------------------- function trata_filtro( byRef sFiltro, byRef sFiltroSQL ) sFiltro = request( "filtro" ) 'Coleta as informações digitadas ou vindas da página anterior id_fabricante = coleta( sFiltro, "id_fabricante" ) te_titulo = coleta( sFiltro, "te_titulo" ) nm_local = coleta( sFiltro, "nm_local" ) nm_instrumento = coleta( sFiltro, "nm_instrumento" ) 'Depois de coletados os respectivos filtro, seta a variavel sFiltro = "" 'Monta o SQL e o filtro a ser guardado na outra página if id_fabricante <> "" then sFiltro = sFiltro & "id_fabricante=" & id_fabricante & "&" sFiltroSQL = sFiltroSQL & " AND ( a.id_fabricante = '" & retira_espaco( id_fabricante ) & "' ) " end if if te_titulo <> "" then sFiltro = sFiltro & "te_titulo=" & te_titulo & "&" sFiltroSQL = sFiltroSQL & " AND ( a.te_titulo LIKE '%" & retira_espaco( busca_inteligente( te_titulo ) ) & "%' ) " end if if nm_local <> "" then sFiltro = sFiltro & "nm_local=" & nm_local & "&" sFiltroSQL = sFiltroSQL & " AND ( a.nm_local LIKE '%" & retira_espaco( busca_inteligente( nm_local ) ) & "%' ) " end if if nm_instrumento <> "" then sFiltro = sFiltro & "nm_instrumento=" & nm_instrumento & "&" sFiltroSQL = sFiltroSQL & " AND ( a.nm_instrumento LIKE '%" & retira_espaco( busca_inteligente( nm_instrumento ) ) & "%' ) " end if if sFiltro <> "" then sFiltro = left( sFiltro, len( sFiltro ) - 1 ) 'retira o ultimo caracter sFiltro = trata_parametros_filtro( sFiltro ) 'transforma para o filtro ser passado por parametro sFiltroSQL = right( sFiltroSQL, len( sFiltroSQL ) - 4 ) 'retira o primeiro and sFiltroSQL = " WHERE " & sFiltroSQL 'monta a clausula where sTermo_Aux = sFiltroSQL end if end function '-------------------------------------------------------- Function busca_inteligente(str) Dim v v = lcase(str) v = Replace(v,"%","") v = Replace(v,"'","") v = Replace(v,"""","") v = replace(v, "ó" , "o") v = replace(v, "ò" , "o") v = replace(v, "ô" , "o") v = replace(v, "õ" , "o") v = replace(v, "ö" , "o") v = replace(v, "á" , "a") v = replace(v, "à" , "a") v = replace(v, "â" , "a") v = replace(v, "ã" , "a") v = replace(v, "ä" , "a") v = replace(v, "é" , "e") v = replace(v, "è" , "e") v = replace(v, "ê" , "e") v = replace(v, "ú" , "u") v = replace(v, "ù" , "u") v = replace(v, "û" , "u") v = replace(v, "ü" , "u") v = replace(v, "í" , "i") v = replace(v, "ì" , "i") v = replace(v, "ç" , "c") v = replace(v,"a","[a,á,à,ã,â,ä]") v = replace(v,"e","[e,é,è,ê]") v = replace(v,"i","[i,í,ì]") v = replace(v,"o","[o,ó,ò,õ,ô,ö]") v = replace(v,"u","[u,ú,ù,û,ü]") v = replace(v,"c","[c,ç]") v = replace(v,"'","['']") busca_inteligente = v End Function '-------------------------------------------------------------------------------------------------------------------- if not rs.BOF then 'Variaveis com os valores das colunas Dim nID Dim sFabricante Dim sTitulo Dim sLocal Dim sPag Dim sTamanho Dim sMaterial Dim sIdioma Dim sInstrumento Dim sNotas Dim nQtd do while not ( rs.eof ) nID = rs( "id_catalogo" ) sFabricante = rs( "nm_fabricante" ) sTitulo = rs( "te_titulo" ) sLocal = rs( "nm_local" ) sPag = rs( "nu_pag" ) sTamanho = rs( "te_tamanho" ) sMaterial = rs( "nm_tipo_documento" ) sIdioma = rs( "nm_idioma" ) sInstrumento = rs( "nm_instrumento" ) sNotas = rs( "te_notas" ) nQtd = rs( "nu_qtd_fotos" ) %>
<% rs.movenext loop end if rs.close set rs = nothing %> |