ho messo questo codice la prima parte per trovare l'ultimo id inserito ma non funziona cosa cìè che non va?

quello che vorrei fare io è quello di estrarre 3 record random
il primo scelto dalla codcategoria 3,5,6
il secondo scelto dalla codcategoria 4,7,8
e il terzo dalla codcategoria 2,1,9
codcategoria è la colonna della mia tabella ricette
e dovrebbero variare in automatico ogni giorno


mi date una mano

vorrei visualizzare il titolo della tabella del db e le prime 20/30 parole della descrizione...


<%
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open dcnDB ' da valorizzare
SQL = "SELECT MAX(id) AS MaxId FROM ricette"
Dim rs19
set rs19 = con.Execute(SQL)
If Not rs19.Eof Then
MaxId = rs19("MaxId ")
Else
MaxId = 0
End If
Rs19.Close : Set rs19 = Nothing
%>



<%
Randomize
RandomNumber = Rnd * MaxId
%>
<%'Quindi andiamo ad estrarre un record utilizzando il numero appena calcolato:%>
<%
SQL19 = "SELECT TOP 1 * FROM ricette WHERE id >= " & RandomNumber
set rs19 = con.Execute(SQL)
If Not rs19.Eof Then
Response.Write rs19("id") & " - " & rs19("descrizione")
Else
Response.Write "Nessuna ricetta da visualizzare"
End If
%>

<%
'chiusura rs
rs19.close
set rs19=nothing
%>


grazie grazie