stumpy

provavelmente o erro não esta no seu script mas sim que você não pode escrever na pasta ou seja a pasta esta como somente leitura

Assim realmente não dá pois ele entende que se teve quebra de linha o seu comando SQL terminou

Sendo assim:

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone
FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor
WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

você tem que fazer como a Taty citou pois desta forma você estará colocando tudo em uma linha só ou

fazer tudo na mesma linha que fica mais dificíl para dar manutenção
ficando assim:

sql = "SELECT compra.produtor, compra.data, compra.valor, fornecedor.nome, fornecedor.telefone FROM fornecedor INNER JOIN compra ON compra.id_fornecedor=fornecedor.id_fornecedor WHERE fornecedor.id_fornecedor='1'"
Set rsfor = adoCon.Execute(sql)

abraços

Como que você esta fazendo o gridview ?

É algo mais ou menos assim ?

SqlDataAdapter sysretorno;
string strsql=" Select * from Tabela1 where campo like '%'" & textbox.text & "'%'";
string a= "Server=192.0.0.100;Database=TESTE;User Id=sa;Password=1234;Connection Timeout=60000";
sysretorno= new System.Data.SqlClient.SqlDataAdapter(strsql,a);
DataSet ds=new DataSet();
sysretorno.Fill(ds);
Gridview1.DataSource=ds;
GridView1.DataBind();

você só precisa montar uma lista fazendo o mesmo select que fez para carregar os produtos passando um like '%' reuquest("textbox") '%'

Estão faltando os & na sua string no final na subcategoria

"SELECT codigo_subcategoria, h1_subcategoria, nome_subcategoria FROM Subcategorias WHERE sigla_idioma='"&varLang&"' AND codigo_categoria = "&codcat &" and url_subcategoria = '" & request("url_subcategoria")& "'"