codice:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/------.mdb")
set rs = server.createobject("adodb.recordset")
sql="select * from chisiamo order BY gruppo desc" 
g=""
RS.Open sql, conn
while not rs.eof
gu=rs.field("gruppo")
if  g<>gu then
response.write("Gruppo :" & gu & "
")
g=gu
end if
response.write("nome" & rs.field("nome") & "
")
rs.movenext
wend
RS.Close
set RS = nothing
conn.Close
set Conn = nothing
%>
Roby