Alguem sabeo que é isso ?

[otaviohm 0]

Microsoft JET Database Engine error '80040e10'

 

No value given for one or more required parameters.

 

/encontra.asp, line 203

 

 

http://www.imobita.com.br/busca_principal.asp

 

quando seleciono pra procurar por endereço...

ele da esse problema ai !

 

e a linha 203 é essa

ta la embaixo

 

<%registros = 15pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End Ifbusca = (Request("busca"))busca = replace(busca, " ","_")filtro = (Request("filtro"))codigo = (Request("codigo"))status="1"Function RetiraAcentos(str)  str=Lcase(str)  RetiraAcentos = Replace(str, "á", "a")  RetiraAcentos = Replace(RetiraAcentos, "à", "a")  RetiraAcentos = Replace(RetiraAcentos, "ã", "a")  RetiraAcentos = Replace(RetiraAcentos, "â", "a")  RetiraAcentos = Replace(RetiraAcentos, "ä", "a")  RetiraAcentos = Replace(RetiraAcentos, "é", "e")  RetiraAcentos = Replace(RetiraAcentos, "è", "e")  RetiraAcentos = Replace(RetiraAcentos, "ê", "e")  RetiraAcentos = Replace(RetiraAcentos, "ë", "e")  RetiraAcentos = Replace(RetiraAcentos, "í", "i")  RetiraAcentos = Replace(RetiraAcentos, "ì", "i")  RetiraAcentos = Replace(RetiraAcentos, "î", "i")  RetiraAcentos = Replace(RetiraAcentos, "ï", "i")  RetiraAcentos = Replace(RetiraAcentos, "ó", "o")  RetiraAcentos = Replace(RetiraAcentos, "ò", "o")  RetiraAcentos = Replace(RetiraAcentos, "õ", "o")  RetiraAcentos = Replace(RetiraAcentos, "ô", "o")  RetiraAcentos = Replace(RetiraAcentos, "ö", "o")  RetiraAcentos = Replace(RetiraAcentos, "ú", "u")  RetiraAcentos = Replace(RetiraAcentos, "ù", "u")  RetiraAcentos = Replace(RetiraAcentos, "û", "u")  RetiraAcentos = Replace(RetiraAcentos, "ü", "u")  RetiraAcentos = Replace(RetiraAcentos, "ç", "c")    RetiraAcentos = Replace(RetiraAcentos, "casa", "2")  RetiraAcentos = Replace(RetiraAcentos, "apartamento", "1")  RetiraAcentos = Replace(RetiraAcentos, "comercial", "3")  RetiraAcentos = Replace(RetiraAcentos, "industrial", "3")  RetiraAcentos = Replace(RetiraAcentos, "flat", "4")  RetiraAcentos = Replace(RetiraAcentos, "rural", "6")  RetiraAcentos = Replace(RetiraAcentos, "terreno", "6")    RetiraAcentos = Replace(RetiraAcentos, "alugar", "locacao")  RetiraAcentos = Replace(RetiraAcentos, "vender", "venda")    RetiraAcentos = Replace(RetiraAcentos, "a", "[a,á,à,ã,â,ä]")  RetiraAcentos = Replace(RetiraAcentos, "e", "[e,é,è,ê,ë]")  RetiraAcentos = Replace(RetiraAcentos, "i", "[i,í,ì,î,ï]")  RetiraAcentos = Replace(RetiraAcentos, "o", "[o,ó,ò,õ,ô,ö]")  RetiraAcentos = Replace(RetiraAcentos, "u", "[u,ú,ù,û,ü]")  RetiraAcentos = Replace(RetiraAcentos, "c", "[c,ç]")End FunctionSet rs = Server.CreateObject("adodb.recordset")RS.PageSize =10IF codigo <> "" THENSQL = "SELECT * FROM anuncios WHERE Status='"&status&"'"SQL = SQL & "AND Cod_Anuncio = '"&codigo&"'"ELSESQL = "SELECT * FROM anuncios WHERE Status='"&status&"'"SQL = SQL & "AND "&filtro&" LIKE '%"&RetiraAcentos(busca)&"%'"END IFSQL = SQL & "ORDER BY ID"rs.Open SQL, ConnString, 1, 3   //linha 203total = rs.RecordCount%>

[Mário Monteiro 179]

antes desta linha ponharesponse.write(SQL)response.ende poste aqui o que aparecer na tela