Não Consigo!

[Guest - Rodrigo -]

Pessoal estou com esse codigo,q peguei aqui mesmo:

<%

Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada

lista=Request.querystring("lista")

cat_id=Request.querystring("cat_id")

cat_nome=Request.querystring("cat_nome")

nome=Request.querystring("nome")

%>

<table border=0 width=100%><tr width=100%><td width=100% valign=top><h2><%=cat_nome%></h2></td></tr>

<%

Select Case lista

Case "categoria"

set lista_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 lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preço 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 Select

If lista_produtos.EOF Then

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

Else

%>

<tr width=100%><td width=100%><table border=1 width=100%>

<tr><th>Nome</th><th>Descrição</th><th>Preço</th><th>Detalhes</th><th>Comprar</th></tr></thead></tr>

<%

Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_preco,malha1

malha1 = "sim"

while not lista_produtos.EOF

prod_cat_id = lista_produtos("cat_id")

prod_id = lista_produtos("id")

prod_nome = lista_produtos("nome")

prod_descricaop = lista_produtos("descricaop")

prod_preco = lista_produtos("preço")

%>

<tr width=100% valign=top class=<%=malha1%>><td><%=prod_nome%></td><td><%=prod_descricaop%></td><td>R$<%=prod_preco%></td>

<td valign=top align=center>

<a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>"><img src="./images/lupa.gif" border=0></a>

</td><td align=center>

<form action="./carrocompras.asp" method=get>

<input type=hidden name=acao value=incluir>

<input type=hidden name=prod_id value=<%=prod_id%>>

<input type=hidden name=url_comp value="<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">

<input type=text name=prod_quant maxlength=2 size=2 value=1>&nbsp;<input type=image src="./images/comprar.gif" border=0>

</form></td>

</tr>

<%

lista_produtos.movenext

If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If

wend

End If

lista_produtos.Close

set lista_produtos = Nothing

%>

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

</table>

Esta dando o erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

O objeto é obrigatório: ''

/virtuastore/loja_asp/loja/listaprod.inc, line 22

Falta de tentar resolver não foi,por isso estou apelando para vocês.

Abraços.

Rodrigo

[lcs_sp]

mostre a linha q tah dando erro......

[Victor]

Tente transformar o:

Case Else

em só:

Else

lcs_sp, no erro que mostra no servidor, está dando a linha que está dando erro, é só você contar 22 linhas, só isso!!!

Rodrigo , tenta isso que te falei, se não conseguir posta ai que nós te ajudaremos!!!!

Abraços,

[]'s

Victor