Potrebbe andare così?

codice:
<%@Language=VBScript%>
<%Option Explicit%>
<%
Dim objConn, objRSrnd, strProvider, strPathDB, SQL 
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0; data source="
strPathDB = "d:\rootdatabase\database.mdb" 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open strProvider & strPathDB  
 

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

Set objRSrnd = objConn.Execute(SQL) 

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

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

SQL = "SELECT COUNT(*) FROM NomeTabella WHERE ID >= " & rndID " & Estratto=0      
UPDATE NomeTabella SET 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 NomeTabella WHERE Id = rndid
objConn.Close
Set objConn = Nothing
%>