<% Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = servicon ssql = "SELECT TOP 50 * FROM TBLPRODUTOS WHERE DESTAQUE='S' ORDER BY Rnd(Int(Now()*[IDPROD])-Now()*[IDPROD])" ' Registros aleatórios Access ' ssql = "SELECT * FROM TBLPRODUTOS WHERE COLUNA=5 ORDER BY rand()" ' Registros aleatórios MySQL 'SELECT id,nome FROM clientes ORDER BY rand() LIMIT 10; rs.Source = ssql rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() %> <%while not rs.eof%> <%rs.movenext wend %> <% rs.close set rs = nothing %>