What's the problem with this?

[lucano]

I'm trying to save a datetime field from an Informix DS 7.1.3 db in an array. But I keep getting the following message:

(0x80020009)
An exeption ocurred
/bookings/prueba.asp, line 17

Here is the code:
Dim Prueba()
x = 0
rsBooking.MoveFirst
Do
Redim Preserve Prueba(x)
Prueba(x) = cstr(rsBooking.Fields(0))
x = x + 1
rsBooking.MoveNext
Loop Until rsBooking.EOF
For x = 0 To Ubound(Prueba)
Response.Write Prueba(x) & &quot;<br>&quot;
Next

Any help here would be hot.

Thanks

 

[FengShui1998]

lucano,

Try this...


Do While NOT rsBooking.EOF

Redim Preserve Prueba(x)
Prueba(x) = cstr(rsBooking.Fields(0))
x = x + 1
rsBooking.MoveNext
Loop


fengshui_1998

 

[lucano]

Fengshui_1998:

Got the same error message.

The funny thing is that if I don't use an array and a Do...Loop statement, it works. But I only get the first record in my set.

Response.Write cstr(rsBooking.Fields(0))

Thanks

Lucano