E' che purtroppo non ho le conoscenze.. quindi mi resta difficile applicare i consigli.
Ora ho elaborato un pò più ma cmq so che mancano dei pezzi ma proprio non so cosa mettere. Lo so che per voi questo è un po come fare 1 + 1, ma per me no

codice:
SQL = "SELECT COUNT(Estratto) FROM Archivio WHERE Estratto=0"
If Count = "0" then  
UPDATE Archivio SET Estratto=0
rs.update
rs.Close

SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM NomeTabella" 

Dim maxID, minID, rndID
maxID = objRSrnd("MaxID")
minID = objRSrnd("MinID") 

Randomize 
rndID = Int((maxID - minID + 1) * Rnd + minID) 

SQL = "SELECT COUNT(*) FROM Archivio WHERE ID >= " & rndID " & Estratto=0      

Set objRSrnd = objConn.Execute(SQL) 

Response.Write "Record casuale:
"
Dim fld 
For Each fld In objRSrnd.Fields  
Response.Write "" & fld.Name & ": " & objRSrnd(fld.Name) & "
"
Next 
UPDATE Archivio WHERE Id = rndid SET Estratto=1
objConn.Close
Set objConn = Nothing
%>