Ok, pardon, dopo un po di modifiche sono arrivato a questo :

codice:
id = trim(request.querystring("id"))
if request.querystring("id")<>"" then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\.......")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT [Elenco Linee di Prodotti].[Linea Prodotti], [Elenco Categorie Articoli].[Categ Art], [Elenco Tipologie Articoli].[Tipo Art], [Elenco Articoli].IDArt, [Elenco Articoli].Descrizione, Sum([Movimentazioni Carico/Scarico Mag].[Qtà Ord]) AS Ord, Sum([Movimentazioni Carico/Scarico Mag].[Qtà Cons]) AS Cons, ((Sum([Movimentazioni Carico/Scarico Mag].[Qtà Ord]))-(Sum([Movimentazioni Carico/Scarico Mag].[Qtà Cons]))) AS Giac FROM [Elenco Tipologie Articoli] RIGHT JOIN ([Elenco Linee di Prodotti] RIGHT JOIN ([Elenco Categorie Articoli] RIGHT JOIN ([Elenco Articoli] RIGHT JOIN [Movimentazioni Carico/Scarico Mag] ON [Elenco Articoli].IDArt = [Movimentazioni Carico/Scarico Mag].IDArt) ON [Elenco Categorie Articoli].IDCategArt = [Elenco Articoli].IDCategArt) ON [Elenco Linee di Prodotti].IDLineaProdotti = [Elenco Articoli].IDLineaProdotti) ON [Elenco Tipologie Articoli].IDTipoArt = [Elenco Articoli].IDTipoArt GROUP BY [Elenco Linee di Prodotti].[Linea Prodotti], [Elenco Categorie Articoli].[Categ Art], [Elenco Tipologie Articoli].[Tipo Art], [Elenco Articoli].IDArt, [Elenco Articoli].Descrizione HAVING ((([Elenco Articoli].IDArt)=id) AND (((Sum([Movimentazioni Carico/Scarico Mag].[Qtà Ord]))-(Sum([Movimentazioni Carico/Scarico Mag].[Qtà Cons])))>0)) ORDER BY [Elenco Linee di Prodotti].[Linea Prodotti], [Elenco Categorie Articoli].[Categ Art], [Elenco Tipologie Articoli].[Tipo Art];")
solo che non prende il valore di "id"

Un aiutino qualcuno?