Sistema De Busca

[Guest Hempinho]

ae fazendo favor alguém poderia me fala onde se encotra o erro nesse código:

<%
acao = Replace(Request.Querystring("acao"), "'" , "''")
IF acao = "buscar" THEN
%>
MOSTRA TABELA
<%
usuario = Replace(Request.Form("usuario"), "'" , "''")
id = Replace(Request.Form("id"), "'" , "''")
Set rsv = conexao.execute("SELECT * FROM usuarios WHERE usuario LIKE '%"&usuario&"%' OR id LIKE '%"&id"%'")
Set rsv = Server.CreateObject("adodb.recordset")
rsv.open sql,conexao,3,3
IF rsv.EOF THEN
%>
NADA ENCONTRADO
<%
ELSE
IF Replace(Request.QueryString("pagina"), "'" , "''") = "" THEN
pagina = 1
ELSE
pagina = Replace(Request.QueryString("pagina"), "'" , "''")
END IF
rsv.cachesize = 5
rsv.movefirst
rsv.pagesize = 15
total = rsv.pagecount
rsv.absolutepage = pagina
x = 0
do while not rsv.EOF AND x < rsv.pagesize
id = rsv("id")
usuario = rsv("usuario")
%>
RESULTADO puxados <%=id%> <%=usuario%>
<%
x = x + 1
rsv.movenext
loop
rsv.close
set rsv = nothing
%>
AQUI A PAGINAÇÃO

ERRO: Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

[bareta]

minha bola de cristal ta quebrada e to com preguiça de ler seu codigo... heheh... qual a linha que da erro??? posta essa parte ai...

[Guest Hempinho]

é a linha onde abre a conexao rsv.open sql,conexao,3,3

[bareta]

Set rsv = conexao.execute("SELECT * FROM usuarios WHERE usuario LIKE '%"&usuario&"%' OR id LIKE '%"&id&"%'")

eu adicionei o em vermelho faça um teste ai...

[Guest Hempinho]

continua o erro.

[dark0]

Olá, beleza?

Tente colocar assim:

<%

acao = Replace(Request.Querystring("acao"), "'" , "''")

IF acao = "buscar" THEN

%>

MOSTRA TABELA

<%

usuario = Replace(Request.Form("usuario"), "'" , "''")

id = Replace(Request.Form("id"), "'" , "''")

Set rsv = conexao.execute("SELECT * FROM usuarios WHERE usuario LIKE '%"& usuario &"%' OR id ="& id &" ")

Set rsv = Server.CreateObject("adodb.recordset")

rsv.open sql,conexao,3,3

IF rsv.EOF THEN

%>

NADA ENCONTRADO

<%

ELSE

IF Replace(Request.QueryString("pagina"), "'" , "''") = "" THEN

pagina = 1

ELSE

pagina = Replace(Request.QueryString("pagina"), "'" , "''")

END IF

rsv.cachesize = 5

rsv.movefirst

rsv.pagesize = 15

total = rsv.pagecount

rsv.absolutepage = pagina

x = 0

do while not rsv.EOF AND x < rsv.pagesize

id = rsv("id")

usuario = rsv("usuario")

%>

RESULTADO puxados <%=id%> <%=usuario%>

<%

x = x + 1

rsv.movenext

loop

rsv.close

set rsv = nothing

%>

AQUI A PAGINAÇÃO

Rode ae e veja se resolveu

T+

[bareta]

vixi... muda isso ai..

Set rsv = conexao.execute("SELECT * FROM usuarios WHERE usuario LIKE '%"&usuario&"%' OR id LIKE '%"&id"%'")
Set rsv = Server.CreateObject("adodb.recordset")
rsv.open sql,conexao,3,3

por

sql="SELECT * FROM usuarios WHERE usuario LIKE '%"&usuario&"%' OR id LIKE '%"&id&"%'"
Set rsv = conexao.execute(sql)

se não funciona poe o id igual ao que o dark postou ali

[Guest Hempinho]

deu o mesmo erro ainda.

seria algo no FORM ? pois eu to usando: action="usuarios.asp?acao=buscar"

apenas.

[dark0]

Pode ser o problema sabe onde?

Na hora em que você pega os dados vindos do banco!

você esta usando método GET ou POST?

nas linhas, onde você captura os dados vindos do banco, use apenas REQUEST, ao invés de REQUEST.FORM

Assim:

usuario = Replace(Request("usuario"), "'" , "''")
id = Replace(Request("id"), "'" , "''")

[Guest Hempinho]

to usando POST.

e fiz o que você falu e ta dando o mesmo erro!

isso pode ser conlito com algum outro comando ?

[dark0]

coloca aí a descrição completa do erro..

quero ver como está escrito

[Guest Hempinho]

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/testes/teste.asp, line 52

a linha 52, é onde ta pra abri a conexão.

[Rapper]

opa aqui é o hempinho lembrei meu login

a linha do erro é rsv.open sql,conexao,3,3

[Rapper]

Bom eu fiz umas modificações no código e agora deu o seguinte erro:

<%
acao = Replace(Request.Querystring("acao"), "'" , "''")
IF acao = "buscar" THEN
usuario = Replace(Request.Form("usuario"), "'" , "''")
set rsv = Server.CreateObject("adodb.recordset")
set rsv = conexao.execute("SELECT * FROM usuarios WHERE usuario LIKE '%"&usuario&"%'")
IF rsv.EOF THEN
%>
TABELA "ERRO"
<%
ELSE
IF Replace(Request.QueryString("pagina"), "'" , "''") = "" THEN
pagina = 1
ELSE
pagina = Replace(Request.QueryString("pagina"), "'" , "''")
END IF
rsv.cachesize = 5
rsv.movefirst
rsv.pagesize = 15
total = rsv.pagecount
rsv.absolutepage = pagina
x = 0
do while not rsv.EOF AND x < rsv.pagesize
id = rsv("id")
usuario = rsv("usuario")
%>
RESULTADO
<%
x = x + 1
rsv.movenext
loop
rsv.close
set rsv = nothing
%>

Tipo de erro:

ADODB.Recordset (0x800A0CB3)

O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado.

/testes/teste.asp, line 64

LINHA 64: rsv.absolutepage = pagina

[bareta]

faiz um teste:

response.write "usuario: "&request.form("usuario")&"<br>"

response.write "id: "&request.form("id")&"<br>"

veja se retorna os valores do form corretamente..

[Rapper]

os valores retorna certo.

[bareta]

usa isso:

set rsv = Server.CreateObject("adodb.recordset")
sql = ("SELECT * FROM usuarios WHERE usuario LIKE '%"&usuario&"%'")
rsv.Open sql,conexao,3,3