הצגה באופן רנדומלי

שלום לכם,

אני מנסה להציג מספר מוצרים באופן רנדמלי,
כלומר אני רוצה, שכשנכנסים לאתר יהיו ארבעה מוצרים שמוצגים באופן רנדומלי, מתוך עשרת המוצרים החדשים, כתבתי את הקוד כדלהלן:



<%        

    Const adCmdText4 = &H0001
        Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
     SQLstr="SELECT top 10 * FROM PRODUCTS order by indate desc"  
        rs.Open SQLstr,conn,3,adCmdText4
            
            Dim intRnd
            Randomize Timer
      intRnd = (Int(RND * 10 + 1))
      RS.Move intRnd
            
      
      do until rs.eof
            Response.Write rs("cdname")
            Response.Write "<br>"
            rs.movenext
      loop
      
            
    
rs.Close
set rs = nothing
%>



והבעיה איתו שהוא מציג לי מספר רשומות כל פעם משהו אחר פעם אחת את כל העשר רשומות ופעם אחת רק שתי רשומות, בקיצור מספר אחר כל פעם, אז איך אני מגביל אותו שיציג לי רק ארבע מתוך העשר?