Subscript out of range: 'ticker' ?????

[David]

Hi, I have the following asp in my page, but I keep getting the
following error

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'ticker'

Please can you help me ?. Here is the page code I have so far:
---------------------------------
<%
Randomize
R=clng(1E6*rnd)
F=1+clng(1E3*rn d)

Dim RS_rand
Set RS_rand = Server.CreateOb ject("ADODB.Rec ordset")
RS_rand.ActiveC onnection = conn_string
RS_rand.Source = "SELECT TOP 2 * FROM products WHERE product_New = 1
ORDER BY ((product_ID * " & F & "+" & R & ")Mod 1000);"
RS_rand.CursorT ype = 0
RS_rand.CursorL ocation = 2
RS_rand.LockTyp e = 1
RS_rand.Open()

Dim prodArray(3,2)
ID_CODE = 0
THUMB_CODE = 1
DESC_CODE = 2
URL_CODE = 3

ticker = -1

If NOT (RS_rand.EOF) OR NOT(RS_rand.BOF ) then
While NOT RS_rand.EOF
ticker = ticker + 1

prodArray(ID_CO DE, ticker) = RS_rand("produc t_ID")
prodArray(THUMB _CODE,ticker) = RS_rand("produc t_Thumb")

p_desc = RS_rand("produc t_Description_2 ")
if IsNull(p_desc) then
p_desc = RS_rand("produc t_Description")
end if
if (Len(p_desc) >= 60 ) then
space_pos = InStr(120, p_desc, " ") - 1
p_desc = Left(p_desc, space_pos) & "..."
end if
prodArray(DESC_ CODE,ticker) = p_desc

Set RS_URL = Server.CreateOb ject("ADODB.Rec ordset")
RS_URL.ActiveCo nnection = conn_string
SQL = "SELECT category_URL FROM categories WHERE category_ID = " &
RS_rand("catego ry_ID")
RS_URL.Source = SQL
RS_URL.Open()

prodArray(URL_C ODE,ticker) = RS_URL("categor y_URL")

RS_URL.Close()
Set RS_URL = Nothing
RS_rand.MoveNex t
WEnd
End If

RS_rand.Close()
Set RS_rand = Nothing

' Super. We have the info in our array. Now let's make the html:
Dim RandomBox(3)
for i = 0 to ticker step 1
RandomBox(i) = "<div class=""imghold er""><img
src=""../product-images/" & prodArray(THUMB _CODE,i) & """ alt=""""
width=""125"" /></div>"
RandomBox(i) = RandomBox(i) & "<a href=""../" & prodArray(URL_C ODE,i)
& "/product.asp?ID= " & prodArray(ID_CO DE,i) & """>" &
prodArray(DESC_ CODE, i) & " <span class=""obvious "">read more<i>
&raquo;</i></span></a>"
next

%>

------------------------------

Thanks so much

David

[Anthony Jones]

"David" <go********@goo glemail.com> wrote in message
news:11******** **************@ i40g2000cwc.goo glegroups.com.. .

Hi, I have the following asp in my page, but I keep getting the
following error

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'ticker'

Please can you help me ?. Here is the page code I have so far:
---------------------------------

<snip/>

Can't see anything obvious. Which Database are you using? It looks like
you are doing a lot of work in Script that you should be doing in SQL
instead resulting a much simpler ASP.