% sAct = "SELECT * FROM activite order by nom_act" set rAct = Server.CreateObject("ADODB.RECORDSET") rAct.Open sAct,conn,adOpenKeyset,adLockOptimistic,adCmdText 'sSQL = "SELECT logo_pt_so, site1_so, nom_so FROM societe order by nom_so" sSQL = "SELECT TOP 1 *,rand((((idObj+1))%1000000)*(datepart(ms, GETDATE())+1)) as alea FROM societe order by alea" set rSQL = Server.CreateObject("ADODB.RECORDSET") rSQL.Open sSQL,conn,adOpenKeyset,adLockOptimistic,adCmdText %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||