Dim objSizRs2, address, image, nome
    Dim MinID, MaxID, arrayID, n, strSizID, i, DiffID, ID, strRange
    Set objSizRs2 = Server.CreateObject("ADODB.Recordset")
    
    'Estraggo il Minimo ed il Massimo ID
      strSizSQL = "SELECT MIN(ID_Credits) AS Minimo, MAX(ID_Credits) AS Massimo FROM "&strSizTablePrefix&"Credits;"
      objSizRs2.Open strSizSQL, objSizConn
      If Not objSizRs2.Eof Then  
       MinID=CInt(objSizRs2("Minimo"))
       MaxID=CInt(objSizRs2("Massimo"))
      End If 
      objSizRs2.Close 

    Function randomID(MinID,MaxID)   
     DiffID = MaxID - MinID   
     randomID = CInt(Rnd() * DiffID + MinID)
    End Function
    
    Randomize()
    ' Estraiamo gli ID che assegneremo all'array bidimensionale con .GetRows
    ' estraiamo con un ciclo dall'array tutte le occorenze di ID costruendoci 
    ' una stringa di con tutti gli ID separati da spazi (es.: strID)
    strSizSQL = "SELECT ID_Credits FROM "&strSizTablePrefix&"Credits;"
    objSizRS2.Open strSizSQL
    arrayID = objSizRS2.GetRows()
    ' Ciclo costruzione stringa
    FOR n = 0 TO UBOUND(arrayID,2)    
      strSizID = strSizID & arrayID(0,n) & " "
    NEXT
    ' Determiniamo Minimo e Massimo degli ID
    MinID = arrayID(0,0)
    MaxID = arrayID(0,UBound(arrayID,2))
    ' Ciclo di generazione ID
    FOR i = 1 TO 3
     ID = randomID(MinID,MaxID)   
     '   Controlliamo che l'ID esista senza più preoccuparci che sia compreso nel range       
     IF Instr(strSizID, ID)     Then
           strRange = strRange & ID & ","    
     ELSE           
     ' decrementiamo il contatore per rigenerare l'ID         
       i = i-1       
     END IF
     NEXT
     ' Priviamo la stringa dell'ultima virgola
     strRange = Left(strRange,Len(strRange)-1)
     ' Al termine avremo eseguito 3 assegnazioni valide di ID e potremo eseguire la Query
     ' con la certezza di aver estratto 30 effettivi ID
     Dim objSizRs3
     Set objSizRs3 = Server.CreateObject("ADODB.Recordset")
     strSizSQL = "SELECT * FROM "&strSizTablePrefix&"Credits; WHERE ID_Credits IN (" & strRange & ");"
    
    objSizRs3.Open strSizSQL, objSizConn
        
    If Not objSizRs3.Eof Then
    Do Until objSizRs3.Eof 
'qui stampo i risultati

If Not objSizRs3.Eof Then
    Do Until objSizRs3.Eof 
    %>
    <tr align="center" class="smalltext">
      <%  
        Response.Write("<td width='20%'><a href=""http://www." & objSizRs3("Site_address") & """ title="& strSizTxtShow & "&nbsp;" & objSizRs3("Site_Name") &" class=""linksmalltext""><img src='"& strSizSknPathImage & imgSizCredits & objSizRs3("Site_Image") &".gif' border='0' width='88'></a></td>")
      %>
    </tr>
    <tr>
    <%
      objSizRs3.moveNext
           Loop
        Else
      response.write ("<td width='20%' class=""smalltext"">Per ora non sono inseriti Credits</td>")
         End If
      objSizRs3.Close