Salve a tutti,
il seguente script confronta due array, quando trova due elementi uguali consecuitivi (tipo 2,2 o 3,3 ecc) li stampa a video seguiti con un "ok", diversamente quando i due elementi consecutivi sono diversi li stampa seguiti con un "not ok". Il problema è il seguente: se gli ultimi due elementi dell'array li sostitutisco con 1,1 anzichè 3,3 non riscontro alcun errore, diversamente ho il seguente errore:

Errore di run-time di Microsoft VBScript error '800a0007'

Memoria esaurita

/rubrica/prova1.asp, riga 3 --> Dim array1(1,2,2,3,4,4,5,6,6,3,2,3,3)

Come posso raggirare e da cosa dipende questo problema? Ringrazio anticipatamente per l'aiuto!
<%

Dim array1(1,2,2,3,4,4,5,6,6,3,2,3,3)
Dim array2(1,2,2,3,4,4,5,6,6,3,2,3,3)


id = array(1,2,2,3,4,4,5,6,6,3,2,3,3)

ciclo = 0

for i = 0 to ubound(id)

ciclo = ciclo + 1

Next

p = 1
s = 2

For i = 1 to ciclo

primo = ubound(array1, p)

if s >= ciclo then

if ubound(array1, ciclo - 1) = ubound(array1, ciclo) then

response.write "|"& ubound(array1, ciclo - 1) & "|" & " ok "& "
" & "|"& ubound(array1, ciclo) & "|" & " ok " & "
"

response.End

else

response.write "|"& ubound(array1, ciclo - 1) & "|" & "Not ok "& "
" & "|"& ubound(array1, ciclo) & "|" & "Not ok " & "
"

response.End

end if
end if

secondo = ubound(array2, s)


If primo = secondo then

response.write "|"& primo & "|" & " ok "& "
" & "|" & secondo & "|" & " ok" & "
"

p = p + 1
s = s + 1

else

response.write "|"& primo & "|" & " Not ok "& "
"

end if


p = p + 1
s = s + 1

Next
%>