Un record diverso ogni giorno

[zeweb]

Ciao dovrei stampare in una pagina un record a caso ogni giorno diverso, praticamente è una vetrina dove vengono presentate delle società sportive, quindi ogni giorno devo vedere un record diverso...è possibile applicarlo a questo mio script?

vi scrivo quello che fin'ora ho usato ma non fa nessun randomize..non so se è possibile, chiedo a voi che siete esperti :-)

<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    Dim objConn
    objConn.ConnectionString = cn
    objConn.Open
    Dim sql
    sql=("SELECT * FROM affiliate ORDER BY id ASC")
    set objRec=server.CreateObject("ADODB.recordset")
    objRec.Open sql, objConn,3,3
    %>

poi in una tabella metto:

<%
response.write "http://<img src=/documenti/logo/"& o...order=""0"" />"
%>

<%
nc = 200 'Numero di caratteri
testo = objRec("storia")
While mid(testo,nc,1) <> " "
nc = nc - 1
Wend
testo = Left(testo,nc) & "<a href=""scheda.asp?ID="& objRec("ID") & """>...leggi &raquo;"
testo = Replace(testo,VbCrLF,"
")
Response.write(replace(testo,". ",". 
"))
%>

poi chiudo

<%
set objRec=nothing
set objConn=nothing
%>