<%
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 j
1 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%>