Tipos incompatíveis

[Salgado 4]

Está dando o seguinte erro:

Erro de tempo de execução do Microsoft VBScript error '800a000d'

 

Tipos incompatíveis: 'p1'

 

/rapido/salgado2.asp, line 14

O cód que estou testando é esse:

<%@ Language=VBScript %>
<%
set producer = server.createObject("ADODB.Connection")
producer.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("Producer.mdb")&";"
sql="select * from produtos"
Set testes = server.CreateObject("ADODB.RecordSet")
testes.Open sql,producer,adOpenDynamic

x=0
y=0
z=0
while not testes.EOF
if testes("tipo_plano")="1" then
 p1(x)=cint(testes("id")) '<-- o erro está aqui
 x=x+1
end if
if testes("tipo_plano")=2 then
 p2(y)=testes("id")
 y=y+1
end if
if testes("tipo_plano")=3 then
 p3(z)=testes("id")
 z=z+1
end if
testes.MoveNext
wend
Response.Write x&"<BR>"
Response.Write y&"<BR>"
Response.Write z&"<BR>"

testes.Close
set testes = nothing
producer.Close
set producer = nothing
%>

No caso P1(x), P2(y) e P3(z) serão matrizes.

 

Alguém sabe pq este erro?

Desde já agradeço a ajuda.

[TaP 0]

você jah tentou declarar elas com dim????

[Salgado 4]

Já descobri o problema, ele não está aceitando matriz sem estar definido o tamanho, ou seja, ele não está aceitando uma matriz dinâmica.