Listar prudutos!

[NewUser 0]

Erro ao lista produtos na condição:

 

Tipo de erro:

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

Objeto necessário: ''

/intranet/loja/listaprod.inc, line 22

 

 

<%Dim lista, cat_id, cat_nome, nome, listar_produtos, msgnadalista=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 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  [b]  :!: ------------------------------> Linha de erro [/b]	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 listar_produtos.EOF		prod_cat_id = listar_produtos("cat_id")		prod_id = listar_produtos("id")		prod_nome = listar_produtos("nome")		prod_descricaop = listar_produtos("descricaop")		prod_preco = listar_produtos("preco")		%>				  		<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> <input type=image src="./images/comprar.gif" border=0>			</form></td>		</tr>		<%		listar_produtos.movenext		If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If	wendEnd Iflistar_produtos.Closeset listar_produtos = Nothing%></table></td></tr></table>

[jrcardozo 4]

aparentemente ele não está recebendo os dados da query SQL e o Case Else não está redirecionando quando não for umas das opções. Verifique se o Select Case está trabalhando de forma correta. Esse arquivo é de do tipo Inc. Veja se na página onde está sendo incluido existe a conexão setada

[NewUser 0]

è que na verdaade a conexão era assim:

<%Dim lojaDBset lojaDB = Server.CreateObject("ADODB.Connection")lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\loja.mdb"lojaDB.open%>

mais tive que mudar para isso

<%Dim lojaDBset lojaDB = Server.CreateObject("ADODB.Connection")lojaDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../loja.mdb")&";Persist Security Info=False"lojaDB.Open%>

pq não roda da primeira forma no meu pc , como corrigi?