record casuale?

[zeweb]

è 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!

<% 
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
%>

[Gioba66]

http://www.aspfaq.com/show.asp?id=2132

[saltodifondi]

perchè a me dice
Nessun valore specificato per alcuni parametri necessari ??

<% 
    Randomize() 
    randNum = (CInt(1000 * Rnd) + 1) * -1 
 
     sql = "SELECT TOP 1 messaggio, " & _ 
        "r = Rnd(" & randNum & ") " & _ 
        "FROM guestbook " & _ 
        "ORDER BY r" 

    set rs = objconn.execute(sql) '<----Linea dell'errore
 
    response.write rs(0) 
 
    rs.close: set rs = nothing 
    objconn.close: set objconn = nothing 
%>

tabella guestbook e campo messaggio ovviamente esistono