[Resolvido] Busca pela palavra exata

Loko da Web · Janeiro 21, 2009

verifica tambem se sua tag form esta com method="post"

abraços

Foi só mudar o method pra get, que ja deu um erro

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: '[number: 0]'

Acusa essa linha

sql = "SELECT * FROM fotos WHERE ( nome LIKE '%"&preparaPalavra(palavra(0))&"%' ) "&tipos&""

Essa sql, é a da qualquer palavra, sendo a segunda sql...

filipescoob · Janeiro 21, 2009

é porque você esta usando request.form quando usa este metodo o form tem que ser POST

Para não ter duvida use neste caso request.querystring

ou apenas request que serve para os dois.

abraços

Loko da Web · Janeiro 21, 2009

é porque você esta usando request.form quando usa este metodo o form tem que ser POST

Para não ter duvida use neste caso request.querystring

ou apenas request que serve para os dois.

abraços

Ok... Fiz assim:

Set RS= Server.CreateObject("ADODB.Recordset")
if request("busca") = true then
response.write request("busca")
sql = "SELECT * FROM fotos WHERE (nome = '"&trim(request.querystring("pesq"))&"') "&tipos&""
else
sql = "SELECT * FROM fotos WHERE ( nome LIKE '%"&trim(request.querystring("pesq"))&"%' ) "&tipos&""
end if
RS.Open SQL, conn, 3

- Coloquei o response write, e nao funcionou.

- Na segunda select eu coloquei o mesmo parametro da primeira select e funcionou.

- Mas, no form eu selecionei palavra exata, e me retornou todos os resultados como qualquer palavra (nao deu certo)

- Depois selecionei, qualquer palavra, e me retornou todos os resultados como qualquer palavra (aqui deu certo)

filipescoob · Janeiro 21, 2009

Para debugar o codigo asp coloque isto na primeira linha do arquivo que recebe os dados do form.

De um submit no seu form com os dois parametros(um de cada vez) como solicitei antes e coloque aqui o resultado.

response.write request("busca")
response.end()

DSerma · Janeiro 21, 2009

Afinal... qual é o REAL problema que está ocorrendo ??

Estou achando este tópico MUITO grande para um problema tão pequeno.......

Loko da Web · Janeiro 21, 2009

Para debugar o codigo asp coloque isto na primeira linha do arquivo que recebe os dados do form.

De um submit no seu form com os dois parametros(um de cada vez) como solicitei antes e coloque aqui o resultado.
response.write request("busca")
response.end()

Agora deu certo o response write. Eu selecionei um de cada vez...

Primeiro selecionei palavraexata e na pagina de resultado imprimiu palavraexata

Depois selecionei qualquerpalavra e na pagina de resultado imprimiu qualquerpalavra.

filipescoob · Janeiro 21, 2009

Melhor use assim. aqui ele esta com algumas tratativas.

Set RS= Server.CreateObject("ADODB.Recordset")
if ucase(request("busca")) = ucase("palavraexata") and trim(ucase(request("busca"))) <> ""  then
sql = "SELECT * FROM fotos WHERE (nome = '"&trim(request.querystring("pesq"))&"') "&tipos&""
elseif ucase(request("busca")) = ucase("qualquerpalavra") and trim(ucase(request("busca"))) <> ""  then ' Funciona só com o Else mas este garante que não vira nada que não se esteja esperando
sql = "SELECT * FROM fotos WHERE ( nome LIKE '%"&trim(request.querystring("pesq"))&"%' ) "&tipos&""
else ' Se não usar o elseif acima retire este.
response.write "Instrução não identificada!"
response.end()
end if
RS.Open SQL, conn, 3

Loko da Web · Janeiro 21, 2009

Melhor use assim. aqui ele esta com algumas tratativas.

Set RS= Server.CreateObject("ADODB.Recordset")
if ucase(request("busca")) = ucase("palavraexata") and trim(ucase(request("busca"))) <> ""  then
sql = "SELECT * FROM fotos WHERE (nome = '"&trim(request.querystring("pesq"))&"') "&tipos&""
elseif ucase(request("busca")) = ucase("qualquerpalavra") and trim(ucase(request("busca"))) <> ""  then ' Funciona só com o Else mas este garante que não vira nada que não se esteja esperando
sql = "SELECT * FROM fotos WHERE ( nome LIKE '%"&trim(request.querystring("pesq"))&"%' ) "&tipos&""
else ' Se não usar o elseif acima retire este.
response.write "Instrução não identificada!"
response.end()
end if
RS.Open SQL, conn, 3

Bah... tu vai ficar brabo comigo !!!!! Ainda nao deu certo.

Quando digito selecionando palavra exata, ele nao me retorna nenhum resultado, mesmo que a palavra que eu busco esta correta.

Quando digito selecionando qualquer palavra, ele me retorna todos os registros do bd,.... sim todos.

filipescoob · Janeiro 21, 2009

outro mais simples!

Set RS= Server.CreateObject("ADODB.Recordset")

if ucase(request("busca")) = ucase("palavraexata")  then
 sql = "SELECT * FROM fotos WHERE (nome = '"&trim(request.querystring("pesq"))&"') "&tipos&""
else
  sql = "SELECT * FROM fotos WHERE ( nome LIKE '%"&trim(request.querystring("pesq"))&"%' ) "&tipos&""
end if

RS.Open SQL, conn, 3

DSerma · Janeiro 21, 2009

Ta dificil o negócio aki hoje hein ???

Pq ao inves de Radio Button você nao utiliza um Select ?

<select name = "sel">
<option value = "1"> Exata </option>
<option value = "2"> Qualquer uma </option>
</select>

<%

If (Request.Form("Sel") = "1") Then
SQL = "SELECT * FROM Tabela WHERE Palavra = '" & Palavra & "'"
Else
SQL = "SELECT * FROM Tabela WHERE Palavra LIKE '%" & Palavra & "%'"
End if
%>

Abraços....

filipescoob · Janeiro 21, 2009

E ai ta estressado Darkdemo, é só não ler o topico....

Po o cara não ta conseguindo fazer deve ter um motivo que estamos tentando descobrir.

De qualquer forma sua ideia é muito boa, e pode ser adaptada no radio dele tambem trocando o valor para numeros.

abraços

bom to saindo fora.

Abraços e até mais tarde.

Fui

DSerma · Janeiro 21, 2009

filipescoob:

1º) Quanto ao meu stress.. cuido EU...

2º) Quando disse que a coisa estava dificil aki... estava falando sobre encontrar uma solução para o caso dele... se com radion button está demorando.. sugeri uma nova solução..

3º) Não estou aki para discutir com ninguém.. e sim para ajudar as pessoas a encontrar soluções....

Abraços...

Loko da Web · Janeiro 21, 2009

Ta dificil o negócio aki hoje hein ???

Pq ao inves de Radio Button você nao utiliza um Select ?

<select name = "sel">
<option value = "1"> Exata </option>
<option value = "2"> Qualquer uma </option>
</select>

<%

If (Request.Form("Sel") = "1") Then
SQL = "SELECT * FROM Tabela WHERE Palavra = '" & Palavra & "'"
Else
SQL = "SELECT * FROM Tabela WHERE Palavra LIKE '%" & Palavra & "%'"
End if
%>

Abraços....

Dark, esta dando a mesma coisa.... Humpf, ta dificil mesmo, to achando que é o meu cod que esta errado. Se vcs quiserem eu coloco as duas paginas aqui pra analisar melhor....

DSerma · Janeiro 21, 2009

Posta o código do seu form.. e o da página ASP ai....

Loko da Web · Janeiro 21, 2009

busca

<html>
<head>
<title>Painel de Administração</title>
<head>
<style media="screen" type="text/css">
.text {
	font-family: Arial;
	font-size: 12px;
	font-weight: normal;
	color: #000000;
}
.text2 {
	font-family: Arial;
	font-size: 15px;
	font-weight: normal;
	color: #000000;
}
	a.classe1:link {color:#000000; font-family:arial; font-size:12px; text-decoration:none;}
	a.classe1:visited {color:#000000; font-family:arial; font-size:12px; text-decoration:none;}
	a.classe1:hover {color:#000000; font-family:arial; font-size:12px; text-decoration:underline;
}

table.bordasimples {border-collapse: collapse;

}

table.bordasimples tr td {border:1px solid #000000;

}

table.bordamenu {border-collapse: collapse;

}

table.bordamenu tr td {
		border-bottom: 1px solid #000000;
		border-right: 0px solid;
		border-left: 0px solid;
		border-top: 0px solid #000000;
}
table.bordamenu02 {border-collapse: collapse;

}

table.bordamenu02 tr td {
		border-bottom: 0px solid;
		border-right: 0px solid;
		border-left: 0px solid;
		border-top: 0px solid;
}

</style>
</head>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="800" align="center" class="bordasimples">
<tr>
<Td colspan="2"><img src="images/topo_admin.jpg" boder="0"></td></tr>
<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="800" align="center" class="bordamenu02">
<tr>
<td align="right" class="text">
Alterar Meus Dados | Add User | Alterar User | Deletar USer| Log Out</td></tr></table></tr>
<tr>
<td width="200" valign="top">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="200" align="center" class="bordamenu">
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>CATEGORIA</td></tr>
<tr>
<Td class="text"><a href="enviar_categoria.asp" class="classe1">Cadastrar Categoria</td></tr>
<tr>
<Td class="text"><a href="editar_categoria.asp" class="classe1">Editar Categoria</td></tr>
<tr>
<Td class="text"><a href="deletar_categoria.asp" class="classe1">Deletar Categoria</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>FILME</td></tr>
<tr>
<Td class="text"><a href="enviar_foto.asp" class="classe1">Cadastrar Filme</td></tr>
<tr>
<Td class="text"><a href="editar_filme.asp" class="classe1">Editar Imagem</td></tr>
<tr>
<Td class="text"><a href="editar_filme_texto.asp" class="classe1">Editar Texto</td></tr>
<tr>
<Td class="text"><a href="deletar_filme.asp" class="classe1">Deletar Filme</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>TOP 10</td></tr>
<tr>
<Td class="text"><a href="incluir_top10.asp" class="classe1">Cadastrar Filme</td></tr>
<tr>
<Td class="text"><a href="deletar_top10.asp" class="classe1">Deletar Filme</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>SUGESTÕES</td></tr>
<tr>
<Td class="text"><a href="incluir_sugestao.asp" class="classe1">Cadastrar Filme</td></tr>
<tr>
<Td class="text"><a href="deletar_sugestao.asp" class="classe1">Deletar Filme</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>NOTICIAS</td></tr>
<tr>
<Td class="text"><a href="incluir_noticia.asp" class="classe1">Cadastrar Noticia</td></tr>
<tr>
<Td class="text"><a href="editar_noticia_imagem.asp" class="classe1">Editar Imagem</td></tr>
<tr>
<Td class="text"><a href="editar_noticia_texto.asp" class="classe1">Editar Texto</td></tr>
<tr>
<Td class="text"><a href="deletar_noticia.asp" class="classe1">Deletar Noticia</td></tr></table></td>


<td width="600" valign="top">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="600" align="center" class="bordamenu02">
<tr><td class="text2"><b>Cadastrar Filme para Sugestões</font></td></tr>
<tr><td> </td></tr>
<tr>
<td>
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="400" align="left">
<FORM name=newsearch action=incluir_sugestao_form.asp method=post> 
<tr> 
<td class="text">Buscar:</td>
<td> </td>
<td align="left"><input class="text" type="text" name="pesq" size="70"></td>
<td> </td>
<td><input type="submit" name="Submit" value="Enviar" class="text"></td>
<td> </td>
</tr>
<tr><td colspan="4" class="text">
<select name = "busca">
<option value = "palavraexata"> Exata </option>
<option value = "qualquerpalavra"> Qualquer uma </option>
</select>

</td></tr>
</table>
</table></tr>


<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="100%" align="center" class="bordamenu02">
<tr>
<td>rodape</td></tr></table></table>

resultado

<%
function preparaPalavra(str)
  str = replace(str, "ó" , "o")
  str = replace(str, "ò" , "o")
  str = replace(str, "ô" , "o")
  str = replace(str, "õ" , "o")
  str = replace(str, "ö" , "o")
  str = replace(str, "á" , "a")
  str = replace(str, "à" , "a")
  str = replace(str, "â" , "a")
  str = replace(str, "ã" , "a")
  str = replace(str, "ä" , "a")
  str = replace(str, "é" , "e")
  str = replace(str, "è" , "e")
  str = replace(str, "ê" , "e")
  str = replace(str, "ú" , "u")
  str = replace(str, "ù" , "u")
  str = replace(str, "û" , "u")
  str = replace(str, "ü" , "u")
  str = replace(str, "í" , "i")
  str = replace(str, "ì" , "i")
  str = replace(str, "ç" , "c")
  preparaPalavra = replace(LCASE(str),"a","[a,á,à,ã,â,ä]")
  preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê]")
  preparaPalavra = replace(preparaPalavra,"i","[i,í,ì]")
  preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")
  preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")
  preparaPalavra = replace(preparaPalavra,"c","[c,ç]")
  preparaPalavra = replace(preparaPalavra,"'","['']")
  preparaPalavra = preparaPalavra
end function


pesq = trim(request.querystring("pesq"))
palavra = Split(Trim(Request.QueryString("pesq")), " ")
idcat=request.querystring("idcat")
nome_cat=request.querystring("nome_cat")
cat=request.querystring("cat")
idfoto=request.querystring("idfoto")
pesq=request.querystring("pesq")
pesq=request.form("pesq")
busca=request.form("busca")
busca=request.querystring("busca")
busca = trim(request.querystring("busca"))
palavra = Split(Trim(Request.QueryString("busca")), " ")

%>

<%
PagAtual = Request.QueryString("PagAtual")

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/filmes.mdb")
Conn.Open DSNtest

Set RS= Server.CreateObject("ADODB.Recordset")
If (Request.Form("busca") = "palavraexata") Then
sql = "SELECT * FROM fotos WHERE (nome = '"&trim(request.querystring("pesq"))&"') "&tipos&""
elseIf (Request.Form("busca") = "qualquerpalavra") Then
sql = "SELECT * FROM fotos WHERE ( nome LIKE '%"&trim(request.querystring("pesq"))&"%' ) "&tipos&""
end if
RS.Open SQL, conn, 3


If RS.EOF Then
Response.Redirect ("incluir_sugestao_erro.asp")
end if

Const NumPorPage = 50

   Dim PagAtual

   IF Request.QueryString("PagAtual") = "" Then
			   PagAtual = 1 
		 Else
				PagAtual = Request.QueryString("PagAtual")
   End If

   RS.CacheSize = NumPorPage

   
	RS.MoveFirst				
	RS.PageSize = NumPorPage	

	Dim TotalPages			  
	TotalPages = RS.PageCount

	RS.AbsolutePage = PagAtual  

%>

<html>
<head>
<title>Painel de Administração</title>
<head>
<style media="screen" type="text/css">
.text {
	font-family: Arial;
	font-size: 12px;
	font-weight: normal;
	color: #000000;
}
.text2 {
	font-family: Arial;
	font-size: 15px;
	font-weight: normal;
	color: #000000;
}
	a.classe1:link {color:#000000; font-family:arial; font-size:12px; text-decoration:none;}
	a.classe1:visited {color:#000000; font-family:arial; font-size:12px; text-decoration:none;}
	a.classe1:hover {color:#000000; font-family:arial; font-size:12px; text-decoration:underline;
}

table.bordasimples {border-collapse: collapse;

}

table.bordasimples tr td {border:1px solid #000000;

}

table.bordamenu {border-collapse: collapse;

}

table.bordamenu tr td {
		border-bottom: 1px solid #000000;
		border-right: 0px solid;
		border-left: 0px solid;
		border-top: 0px solid #000000;
}
table.bordamenu02 {border-collapse: collapse;

}

table.bordamenu02 tr td {
		border-bottom: 0px solid;
		border-right: 0px solid;
		border-left: 0px solid;
		border-top: 0px solid;
}

</style>
</head>
<body leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="800" align="center" class="bordasimples">
<tr>
<Td colspan="2"><img src="images/topo_admin.jpg" boder="0"></td></tr>
<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="800" align="center" class="bordamenu02">
<tr>
<td align="right" class="text">
Alterar Meus Dados | Add User | Alterar User | Deletar USer| Log Out</td></tr></table></tr>
<tr>
<td width="200" valign="top">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="200" align="center" class="bordamenu">
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>CATEGORIA</td></tr>
<tr>
<Td class="text"><a href="enviar_categoria.asp" class="classe1">Cadastrar Categoria</td></tr>
<tr>
<Td class="text"><a href="editar_categoria.asp" class="classe1">Editar Categoria</td></tr>
<tr>
<Td class="text"><a href="deletar_categoria.asp" class="classe1">Deletar Categoria</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>FILME</td></tr>
<tr>
<Td class="text"><a href="enviar_foto.asp" class="classe1">Cadastrar Filme</td></tr>
<tr>
<Td class="text"><a href="editar_filme.asp" class="classe1">Editar Imagem</td></tr>
<tr>
<Td class="text"><a href="editar_filme_texto.asp" class="classe1">Editar Texto</td></tr>
<tr>
<Td class="text"><a href="deletar_filme.asp" class="classe1">Deletar Filme</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>TOP 10</td></tr>
<tr>
<Td class="text"><a href="incluir_top10.asp" class="classe1">Cadastrar Filme</td></tr>
<tr>
<Td class="text"><a href="deletar_top10.asp" class="classe1">Deletar Filme</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>SUGESTÕES</td></tr>
<tr>
<Td class="text"><a href="incluir_sugestao.asp" class="classe1">Cadastrar Filme</td></tr>
<tr>
<Td class="text"><a href="deletar_sugestao.asp" class="classe1">Deletar Filme</td></tr>
<tr>
<Td class="text" align="center" bgcolor="#F0FFF0"><b>NOTICIAS</td></tr>
<tr>
<Td class="text"><a href="incluir_noticia.asp" class="classe1">Cadastrar Noticia</td></tr>
<tr>
<Td class="text"><a href="editar_noticia_imagem.asp" class="classe1">Editar Imagem</td></tr>
<tr>
<Td class="text"><a href="editar_noticia_texto.asp" class="classe1">Editar Texto</td></tr>
<tr>
<Td class="text"><a href="deletar_noticia.asp" class="classe1">Deletar Noticia</td></tr></table></td>


<td width="600" valign="top">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="600" align="center" class="bordamenu02">
<tr><td colspan="2" class="text2"><b>Cadastrar Filme para Sugestões</font></td></tr>
<tr><td colspan="2"> </td></tr>

<tr><td class="text">Foram encontrado(s) <b><%=totalreg%></b> filme(s)</td>
<td align="right" class="text">Página <b><%=PagAtual%></b> de <b><%=Totalpages%></b></td></tr>
<tr><td colspan="2"> </td></tr>
<tr>
<td colspan="2">
<table align="center" valign="top" border="0" cellspacing="0" cellpadding="0" width=600>

<%
   rs.absolutepage = PagAtual
   count = 0
   do while not rs.eof and count < rs.pagesize
   if somando = 0 then

   '*** Inicia a primeira coluna
%>

<tr>
<td width="150" valign="top" align="center">
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr>
<td> </td>
<td>
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr><td align="center"><a href="incluir_sugestao_form_adicionar.asp?idcat=<%=rs("idcat")%>&idfoto=<%=rs("id")%>"><img border="0" src="<%=rs("thumb")%>"></a></td></tr>
<tr><td align="center" class="text"><%=RS("nome")%></td></tr>
</table>
<td> <td></tr>
<tr><td colspan="3"> </td></tr></table></td>

<% count = count + 1
   somando = 1

elseif somando = 1 then

   '*** Inicia a segunda coluna
%>

<td width="150" valign="top" align="center">
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr>
<td> </td>
<td>
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr><td align="center"><a href="incluir_sugestao_form_adicionar.asp?idcat=<%=rs("idcat")%>&idfoto=<%=rs("id")%>"><img border="0" src="<%=rs("thumb")%>"></a></td></tr>
<tr><td align="center" class="text"><%=RS("nome")%></td></tr>
</table>
<td> <td></tr>
<tr><td colspan="3"> </td></tr></table></td>

<% count = count + 1
   somando = 2

elseif somando = 2 then

   '*** Inicia a terceira coluna
%>

<td width="150" valign="top" align="center">
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr>
<td> </td>
<td>
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr><td align="center"><a href="incluir_sugestao_form_adicionar.asp?idcat=<%=rs("idcat")%>&idfoto=<%=rs("id")%>"><img border="0" src="<%=rs("thumb")%>"></a></td></tr>
<tr><td align="center" class="text"><%=RS("nome")%></td></tr>
</table>
<td> <td></tr>
<tr><td colspan="3"> </td></tr></table></td>


<% count = count + 1
   somando = 3

elseif somando = 3 then

   '*** Inicia a quarta coluna
%>

<td width="150" valign="top" align="center">
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr>
<td> </td>
<td>
<table valign="top" border="0" cellspacing="0" cellpadding="0" width="150" align="center">
<tr><td align="center"><a href="incluir_sugestao_form_adicionar.asp?idcat=<%=rs("idcat")%>&idfoto=<%=rs("id")%>"><img border="0" src="<%=rs("thumb")%>"></a></td></tr>
<tr><td align="center" class="text"><%=RS("nome")%></td></tr>
</table>
<td> <td></tr>
<tr><td colspan="3"> </td></tr></table></td></tr>

<% count = count + 1
   somando = 0

end if

   rs.movenext
   loop
%> 
</table>
<tr>
<td colspan="2">
<table align="center" BORDER="0" cellspacing="0" cellpadding="0" width=600>
<tr><td align="right" class="text">Página <b><%=PagAtual%></b> de <b><%=Totalpages%></b></td></tr>
<tr><td> </td></tr>
<tr><td align="center">
<%
var01 = Len(PagAtual) 'Lê o tamanho do numero
var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numero
var04 = Right(PagAtual,1)	'obtem o digito menos sig. do numero
var05 = var03 & 0 ' Acrecenta ZERO no final
IF var04 <> 0 THEN		' condição se o digito menos sig. é Zero
	inicial = var05 + 1
	final = inicial + 9  
	ELSE
	inicial = var05 - 9  
	final = var05
END IF

indice_i = var04 - 1 'ultimo digito  - 1
indice_f = 10 - var04 ' 10 - digito menos sig.


' If CInt(inicial) < 1 Then inicial = 1
	 
If CInt(final) > CInt(TotalPages) Then final = TotalPages

'------------------------------------------------------------------------------


IF PagAtual > 1 THEN 

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
	  Response.Write("<a href='incluir_top10_form_adicionar.asp?PagAtual=" &  1 & "&pesq=" & trim(request.querystring("pesq")) & "'>")
	  Response.Write("Primeira") 
	  Response.Write("</a></font></B>  ")
	  
	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
	  Response.Write("<a href='incluir_top10_form_adicionar.asp?PagAtual=" & PagAtual - 1 & "&pesq=" & trim(request.querystring("pesq")) & "'>")
	  Response.Write("Anterior") 
	  Response.Write("</a></font></B>  ")

	  IF PagAtual > 10 THEN

	   Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
	   Response.Write("<a href='incluir_top10_form_adicionar.asp?PagAtual=" & inicial - 1 & "&pesq=" & trim(request.querystring("pesq")) & "'>")
	   Response.Write("...") 
	 Response.Write("</a></font></B>  ")

		  ELSE

		 Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
	   Response.Write("....") 
	   Response.Write("</font></B>  ")

	END IF

  Else

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
	  Response.Write("Primeira") 
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
	  Response.Write("Anterior") 
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
	  Response.Write("...") 
	  Response.Write("</font></B>  ")

End If

'---------------------- NUMEROS  ---------------------------

For i = inicial To final
	 If CInt(i)=CInt(PagAtual) Then
		 Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
	 END IF
	 If CInt(i) < CInt(PagAtual) Then
	  Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href='incluir_top10_form_adicionar.asp?PagAtual=" & i & "&pesq=" & trim(request.querystring("pesq")) & "'>" & i & "</a></font>  "
	 END IF
	 If CInt(i) > CInt(PagAtual) Then
		 Response.Write "<font color=""#660066"" size=""2"" face=""Arial""><a href=incluir_top10_form_adicionar.asp?PagAtual=" & i & "&pesq=" & trim(request.querystring("pesq")) & "'>" & i & "</a></font>  "
  END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN 


p1 = Left(PagAtual,var02) 
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0


'##### CONDIÇÕES ########
'digitos mais significativos do Numero com 1 no fim > PagAtual
'EX:  21   [ 22 ]  23   24  25		 2 com 1 => 21 > 22 (F)
'OU
'PagAtual <= 10	  E	TotalPages > 10
'EX:  ... 1  2  3  4 [ 5 ]  6  ...			  5 <= 10 (V)  E   6 > 10 (F) 

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN	


	   Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	   Response.Write("<a href='incluir_top10_form_adicionar.asp?PagAtual=" & final + 1 & "&pesq=" & trim(request.querystring("pesq")) & "'>")
	   Response.Write("...")
	   Response.Write("</a></font></B>  ") 

		 ELSE

	   Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	   Response.Write("...") 
	   Response.Write("</font></B>  ")

   END IF

	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	  Response.Write("<a href='incluir_top10_form_adicionar.asp?PagAtual=" & PagAtual + 1 & "'>")
	  Response.Write("Próxima")
	  Response.Write("</a></font></B>  ") 

	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
	  Response.Write("<a href='incluir_top10_form_adicionar.asp?PagAtual=" & TotalPages & "&pesq=" & trim(request.querystring("pesq")) & "'>")
	  Response.Write("Ultima")
	  Response.Write("</a></font></B>  ")		

 ELSE

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("...") 
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("Próxima") 
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("Ultima") 
	  Response.Write("</font></B>  ")
End If 
Rs.Close  
Set RS = Nothing
Conn.Close	  
Set Conn = Nothing	   

%>
</table>
</table></tr>


<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="100%" align="center" class="bordamenu02">
<tr>
<td>rodape</td></tr></table></table>

DSerma · Janeiro 21, 2009

Seu FORM esta COMPLETAMENTE ERRADO...

Veja como está

<FORM name=newsearch action=incluir_sugestao_form.asp method=post>
<tr>
<td class="text">Buscar:</td>
<td> </td>
<td align="left"><input class="text" type="text" name="pesq" size="70"></td>
<td> </td>
<td><input type="submit" name="Submit" value="Enviar" class="text"></td>
<td> </td>
</tr>
<tr><td colspan="4" class="text">
<select name = "busca">
<option value = "palavraexata"> Exata </option>
<option value = "qualquerpalavra"> Qualquer uma </option>
</select>

</td></tr>
</table>
</table></tr>


<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="100%" align="center" class="bordamenu02">
<tr>
<td>rodape</td></tr></table></table>

você coloca o "Submit" ANTES do select que define qual o tipo de busca.. e outra.. você NAO FECHA o form.. ¬¬

Veja como DEVE ser

<FORM name=newsearch action=incluir_sugestao_form.asp method=post>
<tr>
<td class="text">Buscar:</td>
<td> </td>
<td align="left"><input class="text" type="text" name="pesq" size="70"></td>
</tr>
<tr><td colspan="4" class="text">
<select name = "busca">
<option value = "palavraexata"> Exata </option>
<option value = "qualquerpalavra"> Qualquer uma </option>
</select>

</td></tr>
<tr><td>
<input type="submit" name="Submit" value="Enviar" class="text">
</td></tr>
</form>
</table>
</table></tr>


<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="100%" align="center" class="bordamenu02">
<tr>
<td>rodape</td></tr></table></table>

Primeiro você coloca TODOS os campos que devem ser enviados pelo FORM... DEPOIS você coloca o submit... e depois FECHA o form... ¬¬

Abraços...

Loko da Web · Janeiro 21, 2009

Seu FORM esta COMPLETAMENTE ERRADO...

Veja como está

<FORM name=newsearch action=incluir_sugestao_form.asp method=post>
<tr>
<td class="text">Buscar:</td>
<td> </td>
<td align="left"><input class="text" type="text" name="pesq" size="70"></td>
<td> </td>
<td><input type="submit" name="Submit" value="Enviar" class="text"></td>
<td> </td>
</tr>
<tr><td colspan="4" class="text">
<select name = "busca">
<option value = "palavraexata"> Exata </option>
<option value = "qualquerpalavra"> Qualquer uma </option>
</select>

</td></tr>
</table>
</table></tr>


<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="100%" align="center" class="bordamenu02">
<tr>
<td>rodape</td></tr></table></table>

você coloca o "Submit" ANTES do select que define qual o tipo de busca.. e outra.. você NAO FECHA o form.. ¬¬

Veja como DEVE ser

<FORM name=newsearch action=incluir_sugestao_form.asp method=post>
<tr>
<td class="text">Buscar:</td>
<td> </td>
<td align="left"><input class="text" type="text" name="pesq" size="70"></td>
</tr>
<tr><td colspan="4" class="text">
<select name = "busca">
<option value = "palavraexata"> Exata </option>
<option value = "qualquerpalavra"> Qualquer uma </option>
</select>

</td></tr>
<tr><td>
<input type="submit" name="Submit" value="Enviar" class="text">
</td></tr>
</form>
</table>
</table></tr>


<tr>
<td colspan="2">
<table valign="top" border="0" cellspacing="0" cellpadding="2" width="100%" align="center" class="bordamenu02">
<tr>
<td>rodape</td></tr></table></table>

Primeiro você coloca TODOS os campos que devem ser enviados pelo FORM... DEPOIS você coloca o submit... e depois FECHA o form... ¬¬

Abraços...

E ai Dark... cara fiz o que pediu e continua a mesma coisa, acho que o erro esta na segunda pagina !!!!!

DSerma · Janeiro 21, 2009

Set RS= Server.CreateObject("ADODB.Recordset")
If (Request.Form("busca") = "palavraexata") Then
sql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "'"
else
sql = "SELECT * FROM fotos WHERE nome LIKE '%" & Request.Form("pesq") & "%'"
end if
RS.Open SQL, conn, 3

If RS.EOF Then
Response.Redirect ("incluir_sugestao_erro.asp")
ELSE



'Aki vem o código dos resultados


end if

Faça apenas o basico primeiro, busque o campo sem as "formatações"

E outra.. você estava usando Reques.QueryString("Pesq")"... errado.. você está passando os valores por um FORMULARIO.. logo.. é Request.Form

Abraços...

xanburzum · Janeiro 21, 2009

olha ai mais um exemplo:

SQLwhereform2.asp

<HEAD><TITLE>SQLwhereform2.asp</TITLE></HEAD>
<HTML><body bgcolor="#FFFFFF">
<Form action = "SQLwhereForm2respond.asp" method=post>
Escolha uma cidade:<p>
cidade: <Input NAME="cidade" MaxLength="20" size="23"><P>
<input TYPE="checkbox" NAME="ExactSearch" CHECKED> Pesquisa Exata<P>
* Nota, se é Pesquisa exata  -> NÃO CHECKED  <- <br> Você pode usar% como curinga <p>
<Input type="submit" value="ok">
 <Input type="reset" value="limpar">
</form>
</BODY></HTML>

SQLwhereform2respond.asp

<HTML><HEAD>
<TITLE>sqlwhereform2respond.asp</TITLE></HEAD>
<body bgcolor="#FFFFFF">
<%
myDSN="DSN=student;uid=student;pwd=magic"
minhacidade=request.form("cidade")
exactsearch=request.form("exactsearch")
SQLtemp="select * from publishers where cidade"
If exactsearch="on" then
	SQLtemp=SQLtemp & " ='"
Else
	SQLtemp=SQLtemp & " LIKE '"
End If
SQLtemp=SQLtemp & minhacidade & "'"
'response.write SQLtemp
call query2table(SQLtemp,myDSN)
%>
<!--#include virtual="/teste/lib_dbtable.asp"-->
</BODY></HTML>

lib_dbtable.asp

<% 
sub query2table(inputquery, inputDSN)
	dim conntemp, rstemp
	set conntemp=server.createobject("adodb.connection")
	conntemp.open inputDSN
	set rstemp=conntemp.execute(inputquery)
	howmanyfields=rstemp.fields.count -1%>
	<table border=1><tr>
	<% 'Coloque Headings da Tabela de Nomes de Campos
	for i=0 to howmanyfields %>
			<td><b><%=rstemp(i).name%></B></TD>
	<% next %>
	</tr>
	<% 'Agora pegar todos os registros
	do while not rstemp.eof %>
		<tr>
		<% for i = 0 to howmanyfields
			thisvalue=rstemp(i)
			If isnull(thisvalue) then
				thisvalue=" "
			end if%>
			<td valign=top><%=thisvalue%></td>
		<% next %>
		</tr>
		<%rstemp.movenext
	loop%>
	</table>
	<%
	rstemp.close
	set rstemp=nothing
	conntemp.close
	set conntemp=nothing
end sub%>

Loko da Web · Janeiro 22, 2009

Set RS= Server.CreateObject("ADODB.Recordset")If (Request.Form("busca") = "palavraexata") Thensql = "SELECT * FROM fotos WHERE nome = '" & Request.Form("pesq") & "'"elsesql = "SELECT * FROM fotos WHERE nome LIKE '%" & Request.Form("pesq") & "%'"end ifRS.Open SQL, conn, 3If RS.EOF ThenResponse.Redirect ("incluir_sugestao_erro.asp")ELSE'Aki vem o código dos resultadosend if
Faça apenas o basico primeiro, busque o campo sem as "formatações"E outra.. você estava usando Reques.QueryString("Pesq")"... errado.. você está passando os valores por um FORMULARIO.. logo.. é Request.FormAbraços...

Caraca, nem acredito que agora deu certo !!!!!! Muito obrigado filipe, dark e xan.... 5 estrelas pra vcs !!!!!! :worship:

Arquivado

[Resolvido] Busca pela palavra exata

Recommended Posts

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1