Microsoft VBScript runtime error (0x800A0009)

[johny]

I am new to ASP and I am trying to use a dynamic array to store the ids from a mysql query. However, as I do not know how many rows are going to be picked out of the database I do not know the length of the array therefore I require a dynamic array. Within the loop that gets the content from the query I have a variable 'i' which increments and as that increments it should also increase the size of the array. However, I get an error could someone please help me. Thanks in advance



the code is as follows:

dim p_info()
dim i
i= 0
'select statement
SelectProperty ="SELECT * from propertyinfo where P_area='Aston';"
set objrec = objConn.Execute(SelectProperty)
Redim p_info(1)


do while not objrec.eof
response.write(objrec("P_num"))
p_info(i) = (objrec("P_num"))
Redim PRESERVE p_info(i)
i= i + 1
Response.Write ("& -- This message may have been cut off and the rest will only be shown to members. To become a member, click here --

[Deur]

Rather than looping through the recordset populating the array why not use getrows to populate the array, that way it will create an array to the required size no matter how many records are returned. e.g.

Code:

'build recordset
SelectProperty ="SELECT * from propertyinfo where P_area='Aston';"
set objrec = objConn.Execute(SelectProperty)
'check recordset is not empty
if not (objrec.eof or objrec.bof)
'get number of records
p_info_count = objrec.recordcount

'build array
p_info = obrec.getrows()
end if
'close recordset
objrec.close
set objrec = nothing -- This message may have been cut off and the rest will only be shown to members. To become a member, click here --