codice:
Response.Expires= 0 

strDatabase=Request("database") 
strCat=Request("cat") 
strRegione = Request("NomeCampo") 
strMail=Request("mailing") 
if strMail="" then strMail="no" 
if strDatabase="" then strDatabase="dataprova2.mdb" end if 

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath(strDatabase) 
Set Rs = Server.CreateObject("ADODB.Recordset") 
sql="Select * from Tabella1 Where regione like '%" & strRegione & "%' AND mailing like '%" & strMail & "%' AND categoria like '%" & strCat & "%' order by id" 
Rs.open sql,conn,1,3 
if Rs.EOF or Rs.BOF then Response.Write" Nessun prodotto presente. La selezione è vuota. " end if 
Do while Not Rs.EOF 
Response.Write ("

<Font face='Verdana' size='2' >" & Rs("nome")& "</font></p>") 
Rs.MoveNext 
loop