[Resolvido] Pesquisa não funciona

[Rodrigo Loures 0]

Boa tarde galera!

Estou com o seguinte problema, o código abaixo do jeito que está não funciona, fica um bom tempo processando e depois aparece a mensagem "O tempo máximo de execução de um script foi excedido. " mas quando troco o while pelo if funciona normalmente, mas só exibe um registro. Daí quando coloco o while para exibir todos os registros dá esse problema do tempo excedido.

 

Segue o código:

 

<!--#include file = "conexao.asp"-->
<!-- #include file = "adovbs.inc" -->
<%
	'Declaração de variáveis'
	dim categoria
	dim fabricante
	dim sqlPesqProduto
	dim pesquisa

	'Aqui as variáveis da tabela produto estão recebendo o valor digitado pelo usuário em cada campo'
	categoria = Request("categoria")
	fabricante = Request("fabricante")
	
	'Criando o objeto recordset'
	set pesquisa = Server.CreateObject("adodb.recordset")
	
	'Aqui a variável está recebendo a query SQL de consulta na tabela produto'
	sqlPesqProduto = "Select * from produto "
	sqlPesqProduto = sqlPesqProduto& "WHERE id_categoria="&categoria&" AND fabricante LIKE '%"&fabricante&"%'"
	'Executando o comando SQL'
	set pesquisa = conexao.Execute(sqlPesqProduto)
	%>
		<table border="1" bordercolor="000000" width="300" align="center">
			<tr>
				<td>Produtos</td>
				<td>Valor</td>
			</tr>
	<%
	While(not pesquisa.EOF)
		%>
			<tr>
				<td><%=pesquisa("produto")%></td>
				<td><%=pesquisa("preco")%></td>
			</tr>
		<%
	Wend
	%>
		</table>
	<%
	if (err.number <> 0) then
		Response.Write(err.description)
	end if
	%>

Se alguém puder ajudar agradeço! Vlw

[hargon 64]

Acima do WEND coloque:

 

pesquisa.MoveNext

 

 

Sem essa linha, está entrando em loop infinito.

[nagaozen 1]

Heh, Tópico resolvido né ...

[Rodrigo Loures 0]

Acima do WEND coloque:

 

pesquisa.MoveNext

 

 

Sem essa linha, está entrando em loop infinito.

Era isso mesmo... dei mole... desculpe pelo erro

 

Valeu pela ajuda!