Randomiser mon recordset [Résolu]

[sleeg]

Bonjour, je voudrais mettre en place un système de gestion d'infos sur mon site affichant à chaque fois 2 records de ma base de donnée aléatoirement.

Le problème, c'est que soit tous les records s'affichent, soit (1x sur 2) j'ai ce message d'erreur :

Limite du tampon de réponse dépassée

Qu'un peut m'éclairer ??

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
<%
xCountTher = 2
Set rs = Server.CreateObject("ADODB.Recordset")
stmt= "SELECT PubTit, PubUrl, PubPhoto, PubDescrip FROM PubColonne WHERE PubAfficher='true';"
rs.Open stmt, Application("ConnWebSite"),3,1,1
IF NOT rs.EOF THEN
    Randomize
    rndNumb = Int(RND * xCountTher)
    DO UNTIL rs.EOF
        Response.Write "<tr>" &vbCRLF
        Response.Write "<td align=left colspan=2 style=font-size:12px valign=top>" &vbCRLF
        Response.Write "<a href="""& rs("PubUrl") &""" style=color:#626262>"& rs("PubTit") &"</a>" &vbCRLF
        Response.Write "</td>" &vbCRLF
        Response.Write "</tr>" &vbCRLF
        Response.Write "<tr>" &vbCRLF
        Response.Write "<td valign=top>" &vbCRLF
        Response.Write "<a href="""& rs("PubUrl") &"""><img src=""images/"& rs("PubPhoto") &""" width=106 height=80 hspace=3 vspace=3 border=0 /></a>" &vbCRLF
        Response.Write "</td>" &vbCRLF
        Response.Write "<td align=right style=font-size:12px valign=top>" &vbCRLF
        Response.Write rs("PubDescrip") &vbCRLF
        Response.Write "</td>" &vbCRLF
        Response.Write "</tr>" &vbCRLF
        rs.Move rndNumb
    LOOP
END IF
rs.Close
set rs=Nothing
%>

Merci d'avance!

[eclisse]

Salut,
Un truc super simple pour résoudre ton problème est de modifier ta requete comme suit :

Code :

SELECT TOP 2 PubTit, PubUrl, PubPhoto, PubDescrip FROM PubColonne WHERE PubAfficher='true' ORDER BY NEWID()

tip top et économique en code...

[sleeg]

Super!
Merci pour ta réponse je ne connaissais pas cet élément de requête!

[eclisse]

Ca fait toujours gagner du temps... plus qu'a fermer le post. @+