<%@language="vbscript" codepage="1252"%> <crossmidia>
<% dim sql, rs, palavra, palavraArr palavra = request.querystring("q") dim strNao, x strNao = array("'","%","=","<",">"," or"," and"," xor") for x=0 to ubound(strNao) palavra = trim(replace(palavra, strNao(x), "")) next if palavra = empty or len(palavra)<2 then response.redirect "default.asp" dim campo_bd, camposSQL(2) dim i, j camposSQL(0) = "PalCh" camposSQL(1) = "Titulo" camposSQL(2) = "Chamada" dim tipoBusca if instr(palavra," ")<>0 then tipoBusca = "composta" palavraArr = split(palavra) sub resultadosPalavras (operador1, operador2, parenteses) for j=0 to ubound(camposSQL) for i=0 to ubound(palavraArr) 'if len(palavraArr(i))>1 then if i = 0 then campo_bd = campo_bd & "("&camposSQL(j)&" like '% "&palavraArr(i)&" %'" else campo_bd = campo_bd & operador1 &camposSQL(j)&" like '% "&palavraArr(i)&" %'" end if if i=ubound(palavraArr) then campo_bd = campo_bd & ")" if j=1 AND parenteses then campo_bd = campo_bd & operador1 elseif j1 then campo_bd = campo_bd & camposSQL(j)&" like '% "&palavra&" %'" if j=1 AND parenteses then campo_bd = campo_bd & operador1 elseif jNão foram encontrados resultados para esta pesquisa ("&palavra&"). Tente fazer o seguinte:" response.write "
    " response.write "
  • Use termos mais abrangentes
  • " response.write "
  • Evite usar muitas palavras, ou palavras com poucas letras
  • " response.write "
  • Confirme a ortografia
  • " response.write "
" response.write "

Voltar

" else dim contador, pagina pagina = cint(request.querystring("pag")) if pagina < 1 or pagina = empty then pagina = 1 rs.pagesize=10 if pagina > rs.pagecount then pagina = rs.pagecount rs.absolutepage=pagina dim registros registros = "de "&abs(round(rs.recordcount/rs.pagecount)-rs.pagesize*pagina) registros = registros &" a "&abs(round(rs.recordcount/rs.pagecount)-rs.pagesize*pagina) response.write "
"&vbnewline response.write "

Resultados da busca para "&palavra&"

"&vbnewline response.write "

Foram encontrados "&rs.recordcount&" resultados para esta pesquisa.

"&vbnewline response.write "
"&vbnewline 'response.write "Mostrando "®istros&"

" dim secao, titulo for contador = 1 to rs.pagesize if rs.eof then exit for secao = "http://www.crossmidia.inf.br/" secao = secao&rs("nomSec")&"/noticias.asp?ncod="&rs("CodNot") titulo = rs("titulo") response.write "

"&titulo&"

"&vbnewline response.write "

"&rs("Chamada")&"

"&vbnewline rs.movenext next response.write "
" %>
Página <%=pagina%> de <%=rs.pagecount%>
<%if pagina > 1 then%> primeira | anterior | <%end if%> <%if pagina < rs.pagecount then%> próxima | última <%end if%>
<% end if rs.close set rs = nothing call FechaCon %>