Problemas no Randonize MySQL+ASP

[Helinho]

Olá estou querendo fazer um banner rotativo com o código abaixo mas não consigo fazer funcionar em função do "Conjunto de linhas não oferecer suporte para busca regressiva". Segue abaixo o código para alguém me dizer onde estou errando.

<%
Dim RSbanner
Dim RSbanner_cmd
Dim RSbanner_numRows

Set RSbanner_cmd = Server.CreateObject ("ADODB.Command")
RSbanner_cmd.ActiveConnection = conexao
RSbanner_cmd.CommandText = "SELECT * FROM mysql.banners" 
RSbanner_cmd.Prepared = true

Set RSbanner = RSbanner_cmd.Execute
RSbanner_numRows = 0



Response.Expires = -1000

Dim rndMax,rndNumber

rndMax = CInt(RSbanner.RecordCount)
RSbanner.MoveFirst
Randomize Timer
rndNumber = Int(RND * rndMax) 
RSbanner.Move rndNumber

response.write "<a href='" & RSbanner("link") & "' target='_blank'><img border=0 width='190' height='390' src='img\banners\" & RSbanner("foto") & "'></a>"



RSbanner.Close()
Set RSbanner = Nothing
%>

O erro está apontando para a linha 23 "RSbanner.Move rndNumber". O quê devo fazer?

[bareta]

use o random direto na sql:

veja ai: http://fuila.net/Y