<%
SQL = "SELECT top 1 * FROM Table where ID="&ID&" order by Rnd(-(1000*ID)*Time())"
set RS = Connection.execute(SQL)
%>