Objeto Necessário

[NewUser 0]

Fiz uma função para lista os produto da BD mais ta dando este erro.

Objeto necessário.

 

meu cod

<%Select Case listaCase "categoria"	set listar_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")	msgnada = "No momento não dispomos de nenhum produto neste departamento."Case "busca"	set listar_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preco LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")	msgnada = "Infelizmente não localizamos nenhum produto com esse nome."Case Else	%>	<script>window.location="./index.asp"</script>	<%End SelectIf listar_produtos.EOF Then   --------------------->'Linha de erro	Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"Else %>

VLW

[Mário Monteiro 179]

qual a linha do erro?

[NewUser 0]

Editei a linha de erro!!!

[Mário Monteiro 179]

o objeto esta sendo criado em uma das opcoes do select caseem todas as outras ele nao será criado edará erro la embaixo

[NewUser 0]

Como faço?

[jrcardozo 4]

assim não resolve

ASP

<%

Select Case lista

Case "categoria"

    set listar_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")

if listar_produtos.eof then

    msgnada = "No momento não dispomos de nenhum produto neste departamento."

end if

Case "busca"

    set listar_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preco LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")

if listar_produtos.eof then

    msgnada = "Infelizmente não localizamos nenhum produto com esse nome."

end if

Case Else

     %>

    <script>window.location="./index.asp"</script>

    <%

End Select

Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"

[NewUser 0]

continua dando o erro!

[Mário Monteiro 179]

qual o erro agora e aonde?

[NewUser 0]

Pra simplificar coloquei fiz assim:

<%Select Case listaCase "categoria"	set listar_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" ORDER BY nome")	msgnada = "No momento não dispomos de nenhum produto neste departamento."Case "busca"	set listar_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preco LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' ORDER BY nome")	msgnada = "Infelizmente não localizamos nenhum serviço com esse nome."Case Else	%>	<script>window.location="./index.asp"</script>	<%End SelectIf listar_produtos.EOF Then	Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"	Else %>

[jrcardozo 4]

armazena o sql de cada CASE em uma variavel e executa o recordset no final do SELECT CASE

[NewUser 0]

Da pra ser mais específico?

[jrcardozo 4]

lógica?

ASP

select case var

case "c"

msg="Nada em C"

sql = "select * from tabela where algumacoisa"

case "s"

sql = "select * from outratabela where algumacoisa"

msg="nada em S"

case else

response.redirect("pagina.asp")

end select

set rs = conexao.execute(sql)

if rs.eof then

response.write(msg)

else

'exibe os dados

end if

[NewUser 0]

Tendi! Funcionou OK!VLW