Grazie, vi posto il code completo:
codice:
 <% 
ISBN = request("ISBN") 
denominazione = request("denominazione") 
informazioni = request("informazioni") 
codice = request("codice") 

Dim ConnDown 
Set ConnDown=Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"/mdb-database/webstore.mdb") 
Dim SQLDown,RECDown 
SQLDown = "SELECT * FROM catalogo_articoli WHERE denominazione LIKE '%" & denominazione & "%' "
Set RECDown=ConnDown.Execute(SQLDown)
if RECDown.eof then 
response.write "NESSUN RECORD CORRISPONDE IN QUESTO MOMENTO AI CRITERI DI SELEZIONE 
 
" 
else 
While Not RECDown.EOF 

IDCD = RECDown("ID")
riferimentodifoto = RECDown ("riferimentodifoto")
denominazione = RECDown ("denominazione")
riferimentodiicona = RECDown ("riferimentodiicona")
confezione = RECDown ("confezione")
informazioni = RECDown ("informazioni")
%>

<form action="vendita.asp?IDCD=<%=IDCD%>" method="post" onsubmit="return(checkFormData(this));">

<input type="hidden" name="IDCD" value="<%=IDCD%>">
<input type="hidden" name="ISBN" value="<%=RECDown("ISBN")%>">
<input type="hidden" name="denominazione" value="<%=RECDown("denominazione")%>">
<input type="hidden" name="informazioni" value="<%=RECDown("informazioni")%>">
<input type="hidden" name="codice" value="<%=RECDown("codice")%>">

<%
RECDown.MoveNext
WEnd
end if
RECDown.Close
ConnDown.Close
Set RECDown = Nothing
Set ConnDown = Nothing
%>