Problemas com página de resultados!

[Fuca 0]

Povo, estou tendo o seguinte problema na página da minha empresa...

Ao fazer uma busca por uma categoria em minha página, é retornado o seguinte erro:

 

error '80020009'

Exception occurred.

 

/anunciantes/shc_emp.asp, line 110

 

Alguém sabe qual é o problema?

Aí vai o bloco do código onde ocorre o erro...

(a linha 110 está em negrito)

 

Select Case Request.QueryString("lista")

Case "busca"

Select Case Request.QueryString("campo")

Case "todos"

Set lista_categoriax = listeuDB.Execute("SELECT id FROM categorias WHERE nome LIKE '%" & Request.QueryString("procurar") & "%'")

If lista_categoriax.EOF Then cat_idx = "a" Else cat_idx = lista_categoriax("id") End If

Set lista_produtos = listeuDB.Execute("SELECT * FROM anunciantes WHERE id LIKE '%" & Request.QueryString("procurar") & "%' OR cat_idx LIKE '%" & cat_idx & "%' OR cat_idx LIKE '%" & Request.QueryString("procurar") & "%' OR empresa LIKE '%" & Request.QueryString("procurar") & "%' OR endereco LIKE '%" & Request.QueryString("procurar") & "%' OR bairro LIKE '%" & Request.QueryString("procurar") & "%' OR cep LIKE '%" & Request.QueryString("procurar") & "%' OR estado LIKE '%" & Request.QueryString("procurar") & "%' OR contato LIKE '%" & Request.QueryString("procurar") & "%'ORDER BY empresa")

Case "cat_idx"

Case Else

Set lista_produtos = listeuDB.Execute("SELECT * FROM anunciantes WHERE empresa like '%" & Request.QueryString("procurar") & "%' and cid_id="&Request.QueryString("id_cid")&" ORDER BY empresa")

End Select

 

If Request.QueryString("produto") <> "" And Request.QueryString("procurar") = "" Then

Set lista_categoria = listeuDB.Execute("SELECT id FROM categorias WHERE nome LIKE '%" & Request.QueryString("produto") & "%'")

If lista_categoria.EOF Then cat_id = "a" End If

Set lista_produtos = listeuDB.Execute("SELECT * FROM anunciantes WHERE cat_id = "&lista_categoria("id")&" and cid_id="&Request.QueryString("id_cid"))

End If

If lista_produtos.EOF Then

%>

<tr width=100%><td width=100%><h3>Não existe nenhum anunciante com essa característica.</h3></td></tr>

<%

lista = "nao"

End If

Case "order"

Set lista_produtos = listeuDB.Execute("SELECT * FROM anunciantes ORDER BY empresa"& Request.QueryString("orderby") & " " & Request.QueryString("ord"))

If lista_produtos.EOF Then

%>

<tr width=100%><td width=100%><h3>Não existe nenhum anunciante cadastrado em sua lista.</h3></td></tr>

<%

lista = "nao"

End If

Case Else

lista = "nao"

End Select

 

Desde já agradeço!

Valeu!

[Mário Monteiro 179]

seu recordset ta com o nomelista_categoriaxe você chama no outro assimlista_categoriaajeita isso

[FabricioGomes 0]

nao gosto de fazer assim, mas dentro de um SQl colocar um recordset...tente colocar o lista_categoria("id") numa variavel e utilizar ela no lugar...

[Mário Monteiro 179]

nao gosto de fazer assim, mas dentro de um SQl colocar um recordset...tente colocar o lista_categoria("id") numa variavel e utilizar ela no lugar...

mas o erro acho que é pelos nomes errados mesmo...

[FabricioGomes 0]

mario, o nome esta diferente, mas é bem acima...duas linhas acima da linha do erro ele abre o lista_categoria (sem o x) correto... hehehe

[Mário Monteiro 179]

mas a linha do erro é estaSet lista_produtos = listeuDB.Execute("SELECT * FROM anunciantes WHERE cat_id = "&lista_categoria("id")&" and cid_id="&Request.QueryString("id_cid"))e ela usa o lista_categoria (sem o x)...