Order by - Select

[maximum]

Prova così:

<%
Set prodRS = Server.CreateObject( "ADODB.Recordset" )
prodRS.ActiveConnection = Con
prodRS.CursorType = adOpenStatic
sqlString = "SELECT TOP 5 product_name, product_sconto, product_price " &_
  "FROM Products WHERE product_sconto > 0" &_
  "AND product_status=1 " &_    
  "ORDER BY product_sconto DESC"
	prodRS.Open sqlString
        Do until prodRS.eof
   	   Response.write prodRS("product_name") & "-" & prodRS("product_sconto") & "%" & "
"
	loop 
%>