---

Hvordan udvælges en tilfældig post fra en tabel,
samtidig med at nogle kriterier for hvilke poster det må være, skal gælde.
Det er let nok at udvælge en tilfældig post fra hele tabellen,
men hvis f.eks. en anden kolonne samtidig skal indeholde en bestemt værdi
bliver det straks mere kompliceret.
Nogle forslag?

Med venlig hilsen Jeppe Branner,
http://www.gratisindex.dk -
Danmarks største oversigt over gratis internettjenester
http://www.simpelstart.dk3.com - Den enkleste søgeside
ICQ UIN: 64130242

---

Jeppe Branner <jeppe.branner@worldonline.dk> skrev:
> Hvordan udvælges en tilfældig post fra en tabel,
> samtidig med at nogle kriterier for hvilke poster det må være, skal gælde.
> Det er let nok at udvælge en tilfældig post fra hele tabellen,
> men hvis f.eks. en anden kolonne samtidig skal indeholde en bestemt værdi
> bliver det straks mere kompliceret.
> Nogle forslag?
>

Hmm.. måske lidt dårligt formuleret prøver igen.
Først laver jeg et RS med nogle bestemte poster fra en Access-tabel.
Herefter ønsker jeg at udvælge en tilfældig post fra dette recordset,
og nej man kan ikke bare tælle antal poster og så gange med rnd,
for de poster der er med i RS'et ligger hulter til bulter i tabellen.
Der må da være en løsning på dette problem.

--
Med venlig hilsen Jeppe Branner,
http://www.gratisindex.dk -
Danmarks største oversigt over gratis internettjenester
http://www.simpelstart.dk3.com - Den enkleste søgeside
ICQ UIN: 64130242

---

Jeppe Branner wrote:
> Først laver jeg et RS med nogle bestemte poster fra en Access-tabel.
> Herefter ønsker jeg at udvælge en tilfældig post fra dette recordset,

Nedenstående er ikke særlig smart performance mæssigt da den bliver nødt til
at løbe hele recordsettet igennem for at tælle dem (Hvorfor er det egentlig
at recordcount kun virker i ekstremt sjældne tilfælde?) men det virker da
men kan ikke anbefales at det kommer udenfor et hurtigt intranet.


SQL = "Select id,felt1,felt2 from mintabel where felt1 = 'xxxx'"
Set RS = Conn.execute( SQL )
Do while Not RS.EOF
i = i + 1
RS.movenext
loop
Randomize
i = Int(Rnd * i)
RS.Movefirst()
RS.Move i
Response.write RS("id") & "<BR>" & RS("felt1") & "<BR>" & RS("felt2")


--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "