Randomize kommer med fejl

jeg har nedenstående kode, men den kommer nogle gange med fejl. hvis den ikke finder en record - kan nogen hjælpe mig med at rette koden til + en lille forklaring :)

<% 
Set Taeller = Server.CreateObject("ADODB.Recordset") 
Taeller.ActiveConnection = MM_scandlines_STRING 

Taeller.Open "SELECT * FROM Vin WHERE Salgstype = 'Best Buy' AND Aktiv_Dansk = 'Y'", MM_scandlines_STRING, 1, 3
tael = 0
while not Taeller.eof
    tael = tael + 1
Taeller.movenext
wend

Taeller.Close()
Set Taeller = Nothing

Set rsRandom = Server.CreateObject("ADODB.Recordset") 
rsRandom.ActiveConnection = MM_scandlines_STRING 
rsRandom.Open "SELECT * FROM Vin WHERE Salgstype = 'Best Buy' AND Aktiv_Dansk = 'Y'", MM_scandlines_STRING, 1, 3 
If rsRandom.BOF or rsRandom.EOF Then 
      Response.write "Ingen poster" 
else 
    randomize
    randomNr = CInt(rnd() * tael) 
    rsRandom.Move(randomNr)
end if 
%>