Raggruppare estrazione

[Domenix]

sql1 = "SELECT DISTINCT([DATA]) FROM [tabella1] GROUP BY [DATA]"
set rs1 = conn.execute(sql1)
  if not rs1.eof then
    do until rs1.eof
      response.write "

" & rs1("data") & "
"
      sql2 = "SELECT * FROM [tabella1] WHERE [data] = '" & rs1("data") & "'"
      set rs2 = conn.execute(sql)
        if not rs2.eof then
          do until rs2.eof
            response.write "- " & rs2("nome") & ": " & rs2("stato") & "
"
            rs2.moveNext
          loop
        end if
      rs2.close
      set rs2 = nothing
      response.write "</p>"
      rs1.moveNext
    loop
  end if
rs1.close
set rs1 = nothing