Ciao, ho trovato su internet questo script per fare una query casuale ma non funziona....Qualcuno mi sa dire dov'è l'errore?

codice:
<%@Language=VBScript%>
<%Option Explicit%>
<%
Dim objConn, objRSrnd, strProvider, strPathDB, SQL 

' Impostiamo la stringa di connessione al DB
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0; data source="
strPathDB = "http://www.balbalblbalba.net/mdb-database/db1.mdb" 

' Apriamo la connessione al DB
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open strProvider & strPathDB 

' Impostiamo la SQL per estrarre MAX e MIN
SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM Profile" 

' Eseguiamo la query
Set objRSrnd = objConn.Execute(SQL) 

' Memorizzo il min e max in 2 variabili di comodo
Dim maxID, minID, rndID
maxID = objRSrnd("MaxID")
minID = objRSrnd("MinID") 

' calcoliamo l'ID casuale
Randomize 
rndID = Int((maxID - minID + 1) * Rnd + minID) 

' Impostiamo la query per etrarre il record casuale
SQL = "SELECT * FROM Profile WHERE ID >= " & rndID 

' Eseguiamo la query
Set objRSrnd = objConn.Execute(SQL) 

' Visualizziamo i risultati della query
Response.Write "Record casuale:
"

Dim fld 
For Each fld In objRSrnd.Fields 
Response.Write "" & Nickname & ": " & objRSrnd(Nickname) & "
" 
Next 

objConn.Close
Set objConn = Nothing
%>