<% 'rem legge dal form nome=request("nome") categoria=request("categoria") if nome="" then nome="%" nome=replace(nome,"'","''") if categoria="Tutte" then categoria="%" categoria=replace(categoria,"'","''") Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/lucerabynight.it/mdb-database/database.mdb") Set rs = Server.CreateObject("ADODB.Recordset") strSQL="select * from elenco where sottocategoria like 'wwf%' order by id desc" rs.Open strSQL,cn,1 TotalRecords = rs.RecordCount %>

	in allestimento

<% end if rs.Close Set rs = Nothing %>