using arrays in while loop

[parames]

Hi list,
I get this error message when run this script:

-------
Do while Not RS.EOF
dim tbl_array(5)
tbl_array(0) = "fg_lcb"
tbl_array(1) = "fg_r9"
tbl_array(2) = "pp"
tbl_array(3) = "fg_r3a"
tbl_array(4) = "fg_sheet"
tbl_array(5) = "fg_slitter"

for i=0 to 5
Query1 = "SELECT * from "&tbl_array(i)&" where serial ='"&RS("serial&quot&"' and weight='"&RS("weight&quot&"'"
Set RS1 = Conn.Execute(Query1)

If Not RS1.EOF then
got_rec = "YES"
machine = tbl_array(i)
exit for
end if
next

---------

The error message is:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'tbl_array'
/online/production/grn/grn_match.asp, line 75

line 75 == dim tbl_array(5)

If i run this script without the while loop, there is no error..

How to solve this..
Please help..

Thanks and Best regards,
Parameswari sellaparma

 

[Tarwn]

Try dim'ing the array outside the loop and just redimming it at the top of every loop to clear it:

Dim tblArray()
Do While Not RS.EOF
   ReDim tblArray(5)
...etc

Not sure if that would make a difference or not.
-Tarwn ________________________________________________
Get better results for your questions: faq333-2924
Frequently Asked ASP Questions: faq333-3048

 

[browolf]

i've noticed in the past that arrays dont like being redefined with just dim ===============
Security Forums

http://www.security-forums.com

 

[jemminger]

try Dim'ing it as (6) instead of (5)
=========================================================
if (!succeed) try();
-jeff