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

[ramaiato]

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
%>

[ramaiato]

Chiedo scusa, il mio è un errore concettuale! Ho dichiarato un array a più di mensioni. Per esempio

Dim Tabella(4,6)

La Tabella ha 5 righe (prima cifra) e 6 colonne (seconda cifra). Questo è un array bidimensionale... io ero andato oltre le due semplici dimensioni.. :-D Credo sia plausibile l'errore che vi ho postato in questo forum.. Se avete da aggiungere qualcosa fate pure, consulto i forum per imparare... Nel frattempo cerco di correggere il mio script :-)

[ramaiato]

<%
id = array(1,2,2,3,4,5,6,6,7,8,9,9,3,10,10,11,12)



for i = 0 to ubound(id)

if i >= ubound(id) then

response.write id(i)

response.end

end if

if id(i) = id(i+1) then

response.write id(i) & " ok
" & id(i+1) & " ok
"

i = i + 1

else

response.write id(i) & "
"


end if

Next

%>