Buonasera a tutti, non posso nascondere di avere sempre avuto dei problemi con gli array, soprattutto quelli di cui non si conosce la dimensione.

Sto cercando di valorizzare alcuni recordset estratti da una query all'interno di un array di cui non conosco la dimensione e questo è quello che ho scritto:
codice:
 set rs = server.createObject("ADODB.Recordset")
rs.open sSQL, connDB, 1, 3

if not rs.eof then  
  
dim myArray()
i=0
    
do while not rs.EOF

 Redim Preserve myArray(i)

if rs("campoDB") = "ciccio" then
    myCDQ = rs("campoWX")
 else
    myZAQ = rs("campoWX")
end if

 i = i +1  

	primoArray = Array("Gen", "Feb", "Mar", "Apr", "Mag", "Giu", "Lug")
	secondoArray = Array(rs("campoDB")) 
	       
   rs.MoveNext
loop
end if
stampa il valore
codice:
 myZAQ = rs("campoWX")
e poi va in errore:
Microsoft VBScript runtime error '800a000d'

Type mismatch

/risorsepc/Esporta.asp, line 31
Qual'è lo sbaglio????

Grazie!