Random records fra db
Hej Eksperter.Jeg har et problem, som jeg grundet mine ringe evner indenfor ASP ikke helt kan gennemskue.
Jeg skal hente nogle "random" profiler ud fra min db(mysql) og har fundet følgende her inde på eksperten.
Set RS = Conn.Execute("SELECT * FROM member WHERE picture <> '' ")
If RS.EOF = false then
'//hent dine poster ind i array
arrayRS = RS.GetRows()
'//find 3 poster
tot_unik = 3 'antallet af unikke tal
top_number = Ubound(arrayRS, 2)
dim random_number, counter, check, unique_numbers
Redim random_number(tot_unik)
Randomize
For counter = 1 to tot_unik
random_number(counter) = Int(Rnd * top_number)+1
for check = 1 to counter - 1
if random_number(check)= random_number(counter) then
counter = counter - 1
end if
next
next
For counter = 1 to tot_unik
response.Write random_number(counter)
next
Det virker sådan set fint nok...random_number(counter) udskriver tilfældige numre ud fra mit array, men hvad nu når jeg skal bruge eksempelvis ID, Name og BirthDate ?? Det kan jeg ikke gennemskue.
Der er mange points i puljen, da jeg er lidt presset med det her.
Håber i kan hjælpe.