[Resolvido] Pesquisa não funciona

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