Trying To Make Randomizer Script Dynamic

I have a random script I got online, and now I am trying to integrate it with a database, except I can only allow certain records to be random. Here is what i have so far, but I don't think it likes the RecordCount ...

<%
dim limit, random, rs
Call ReturnRecordset(killChars("SELECT * from quote where quotetype = Finance"), rs)


' Sets the upper limit for the random number
limit = rs.RecordCount

' Redim allows for arrays to be setup by passing a numeric value
' rather than hardcoding the numeric value for the limit multiple times
redim image (limit)
redim text (limit)

' List of images and links
Dim i
i = i + 1

While Not rs.EOF

image(i)="images/randomimage/testimonial-3.jpg"
text(i)= rs("quote") & " - " & rs("company")

rs.Movenext
Wend

' produces the randome number from 1 to the value of limit
randomize
random=int(rnd*limit)+1

'Writes the randomly selected hyperlink and image to the browser
%>
<p class="testimonial"><img src="<%= image(random) %>" border="0"></a><br />
<b style="font-size: 14px">What our Clients Say:</b><br /><br />
<%= text(random)%><br /><br />
<a href="finance-testimonials.asp?quoteID=<%=rsquote("quoteID")%>">Read Full Testimonial</a></p>
<%
rs.Close
set rs = Nothing
%>

What do you think?

I am getting this error message

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.