Forum de discussion
Forum « Programmation ASP » (archives)
Re: Requête aléatoire en ASP
Envoyé: 10 novembre 2003, 19h19 par badseed
Le code suivant marche :
<!--#include file="ma_connection.asp"-->
<%
Dim debut, limite
debut=0
limite=5
SQL = "SELECT COUNT(*) AS recordcount FROM liste_domaines"
Recordset1.Open SQL, Connection1 , 1
NbRecord = Recordset1("recordcount")
While Not Recordset1.EOF and debut < limite
' Initialize random-number generator.
Randomize
' Définir la position a atteindre
Pos = Int((NbRecord * Rnd)) + 1
Set Recordset2 = Server.CreateObject("ADODB.RecordSet")
mySQL2 = "SELECT * FROM liste_domaines WHERE id = " & Pos
Recordset2.Open mySQL2 , Connection1 , 1
domaines_fr = Recordset2("domaines_fr")
%>
<%=domaines_fr%><br>
<%
'ici je voudrais bien stocker ma valeur aléatoire Pos pour faire le test anti doublon !!!
debut=debut+1
Wend
%>
Maintenant ce qui me manque, c éviter les doublons.
Alors tester si mon random est dans une chaine OK ça je sais faire mais stocker les numeros tires dans une chaine type ",128,12,3,54," par exemple... " ba j'arrive pas :-(
J'ai essayé de bidouiller un tableau avec des redim mais j'ai des messages d'erreur à chaque fois :-((((
Heeeeelp !
Réponses
|