Hej

Jag har ett litet problem som jag inte kan bemästra. Så här är det, jag vill plocka ut 5 st slumpmässiga tal där dessa tal representerar ett id från en DB (primärnyckel). Jag vill alltså visa 5 slumpmässigt valda poster från en tabell men jag får inte detta till att fungera.

Please Help..

//Frazz

Kanske inte det smidigaste sättet, med det fungerar iallafall ...


sql = "select Id from Tabell"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Randomize
For i = 1 To 5
moveRS rs
Response.Write rs("Id")
Next


Sub moveRS(rec)
rec.MoveFirst
rec.Move Int((maxid * Rnd) + 1)
If rec.EOF Then
moveRS rec
End If
End Sub