<%
dim objdbconnection
set objdbconnection=server.createobject("adodb.connection")
objdbconnection.open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("database\db.mdb")
dim objrecordset
set rs=server.createobject("adodb.recordset")
dim sql
sql="select DISTINCT categoria from prodotti"
rs.open sql, objdbconnection,2,3
%>
