Minimum and maximum of values contained in a table.
<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("Archivio.mdb")
set rs=cn.execute ("Select MIN(spesa) as minimo from tabella")
response.write "Valore minimo nel campo spesa: "&rs("minimo")
set rs=cn.execute ("Select MAX(spesa) as massimo from tabella")
response.write "Valore massimo del campo spesa: "&rs("massimo")
cn.close
Set cn = NOTHING
Set rs = Nothing
%>