Randomize X antal poster fra tabel

prøv at se her :
http://www.eksperten.dk/spm/354453

Til dette siger den :
SQLstr = "SELECT Tabelnavn FROM Tabeller"
Set rsRanSql = con.execute(SQLstr)
randomize
rsRanSql.Move(int(rs.RecordCount * rnd()))

=

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: ''

Med henvisning til den sidste linie før response.write...

ups sorry rs skulle lige skiftes så det var denne fejl :
Microsoft JET Database Engine fejl '80040e24'

Rækkesættet understøtter ikke baglæns hentning.

Hmm... fejlen er åbentbart at der giver -1, men hvorfor, tabellen "Tabeller" har 2 kolonner, en med "ID" og en med "Tabelnavn"
og der er 10 poster i tabellen, hvorfor kan asp ikke tælle mere?

Nå har fundet ud af det manglede : Set rsRanSql = Server.CreateObject("ADODB.Recordset")
på toppen af siden...