randomize från db

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("x.mdb")
SQL_TOP = "SELECT MAX(ID) as tal FROM random"
Set top = Connect.Execute(SQL_TOP)
Randomize
SQL = "SELECT txt FROM random WHERE ID=" & Int(Rnd * top("tal")) + 1
rs = Connect.Execute(SQL)
response.write "" & rs("txt") & ""
Connect.close
Set Connect = Nothing
%>

finns det nått enklare sätt? eller är detta så enkelt som det kan bli?

(kör access)

Om du söker så kanske du hittar några andra alternativ :)

har gjort, provat massa, men inte hittat nån mindre kod för just access, bara mySql

nån?