ok funziona però ho aggiornato la pagina 2 volte e mi ha dato questo errore:

Tipo di errore:
(0x80020009)
Eccezione.
/dia/sitocucina/index.asp, line 1731

la linea è: Response.Write " " & objRSrnd(fld.Name) & "
"

poi ho aggiornato e funzionava ogni due refresh mi da errore

ti metto tutto il codice usato:

<% 'sceltacaso:.:::.....:

SQL = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM ricette"
Dim objRSrnd
Set objRSrnd = dcnDB.Execute(SQL)
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 titolo,descrizione FROM ricette WHERE ID >= " & rndID & " and categoriacod <> 17"
Set objRSrnd = dcnDB.Execute(SQL) %>
<tr>
<td width="46%" height="19">

</p>
<%'Visualizziamo i risultati della queryobjRSrnd
Response.Write "
"%></td></tr>
<%Dim fld
For Each fld In objRSrnd.Fields
Response.Write " " & objRSrnd(fld.Name) & "
"
Next

'fine scelta caso ......:.:.:.::.:.::: %>