tilfældig udtrækning fra database?

http://www.4guysfromrolla.com/webtech/072799-1.shtml

RS.Open \"SELECT COUNT(kolonne) AS FOUND FROM tabell\",Conn
intRnd = RS(\"FOUND\")
RS.Close

randomize timer
intNmbr = INT((intRnd - 1 + 1) * RND + 1)

RS.Open \"SELECT * FROM tabell\",Conn

RS.Move intNmbr

response.write RS(\"kolonne1\")
response.write RS(\"kolonne2\")
\' skriv ut kolonnene du vil skrive ut
RS.Close


/nute

et første ser da ikke ud til at virke helt korrekt

nogen gange får man følgende frem

ADODB.Field error \'80020009\'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/issroot/test.asp, line 0

Det skulle være

randomize timer
intNmbr = INT((intRnd - 1 + 0) * RND + 1)

hehe....i begge tilfeller er det jo lite poeng i å ha det med:

intRnd - 1 + 1 vil jo kun returnere intRnd
intRnd - 1 + 0 vil jo være tilsvarende intRnd -1

:-)

nute>> Nemlig *S*