codice:
<% 
Response.Buffer = true
set Cn = server.createObject("ADODB.Connection")
Cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/menu.mdb")
testo = Server.HTMLEncode(Request.Form("cerca")) 
r_testo = replace(testo,"'","''")

cerca = split(r_testo," ") ' Tutte le parole chiave devono essere separate da uno spazio vuoto 
sql = "SELECT * FROM sinistra WHERE " 
for i = 0 to uBound(cerca) 
if i > 0 then
sql = sql & " AND"
end if
sql = sql & " Descrizione LIKE '%" & cerca(i) & "%'" 
next
sql = sql & " ORDER BY Titolo" 
set Mostra = Cn.Execute(sql) 
%>