tieni traccia dell'autore precedente in una variabile, quindi ad ogni cicli verifichi quello attuale con quello precedente.
Ad esempio:
codice:
autore = "" ' all'inizio nessun autore
Do While Not Rs.Eof
if(rs("autore") <> autore) then ' il precedente autore è diverso da quello attuale?
Response.Write("Autore: " &  rs("autore") & "
")
autore = rs("autore") ' memorizzi il nuovo autore
end if

... ' resto del codice
Rs.MoveNext
Loop
Ciau!
- Dean