è possibile prelevare dal DB access un record casuale ad ogno refresh o ogni giorno...

Praticamente da questo codice volevo implementare questa cosa...ma non so come fare!

codice:
<% 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open strCon
strSQL=("SELECT TOP 4 * FROM products where new=true ORDER BY DataSF DESC")
set rs=server.CreateObject("ADODB.recordset")
rs.Open strSQL, objConn
do while not rs.EOF
%>