Order by - Select

[luigggi]

ok, ci sono quasi però mi ripete lo stesso record per 5 volte, invece che i primi 5 record del recordset

Ecco il mio codice:
<%
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
i=0
do until i=5 or prodRS.EOF
i=i+1
Response.write prodRS("product_name") & "-" & prodRS("product_sconto") & "%" & "
"

loop
%>