ho provato così...

randomize
Set rec = Server.CreateObject("ADODB.Recordset")
sql="select TOP 8 * sistemazioni where public=true order by (rnd*max)+1 "
rec.open sql, conn, 3

ma non va...
(operatore mancante) nell'espressione della query '* sistemazioni where public=true order by (rnd*max)+1'.