codice:
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("mdb-database\db.mdb")
sql = "SELECT DISTINCT(A.nomi) AS T1, MAX(B.valori) AS T2 " &_
"FROM tabella1 A " &_
"INNER JOIN tabella1 B " &_
"ON B.nomi = A.nomi " &_
"GROUP BY A.nomi"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
response.write rs("T1") & " " & rs("T2") & "
"
rs.moveNext
loop
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>