Ragazzi,
Sto riscontrando problemi nell'utilizzo degli ARRAY; in particolare non riesco a capire come mai non vengano memorizzati i valori e come mai di conseguenza non vengono visualixxati.

Inoltre vorrei capire perché se elimino la riga [b]Dim arrayForm(1,255)/b] la pagina mi dice: Tipo non corrispondente: 'Ubound'

Mi aiutate ?

function vediar(giorno)
Dim arrayForm(1,255)
For intIndice = 0 to Ubound(arrayForm,2)
sett = arrayForm(0, intIndice)
materia = arrayForm(1, intIndice)
IF giorno = sett then
vediar="<td><b>cccccccc</b></td>"
else
vediar="<td><b>giorno "& giorno &" -sett " & sett &"</b></td>"
end if
NEXT
end function


function elencomat(oralezione,classeid)
Ncampi=6
n=0
c=0
Set rs7 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM lezioni where ora=" & oralezione &" and classeid=" & classeid &""
rs7.Open SQL, conn ,1,3
totrec=rs7.recordcount

IF totrec=Ncampi then
elencomat="<td>" & oralezione &"</td>"
Do While Not rs7.EOF
n=n+1
gset=rs7("settimana")
ora=rs7("ora")
mat="<td> "& (rs7("materia")) & "- set: " & gset &" - ora: " & ora &" - n.rec:" & n &"</td>"
rs7.movenext
elencomat = elencomat & mat
Loop
rs7.close
set rs7=nothing
end if

IF totrec < Ncampi then
ReDim arrayForm(1,255)
intIndice = 0

elencomat="<td>" & oralezione &"</td>"
Do While Not rs7.EOF
c=c+1
gset=rs7("settimana")
ora=rs7("ora")
IF gset=c and ora= oralezione then
mat= "<td> "& (rs7("materia")) & "- set: " & gset &" - ora: " & ora &" - n.rec:" & c &"</td>"
else
arrayForm(0,intIndice) = gset
arrayForm(1,intIndice) = ora
intIndice = intIndice + 1
mat="" & vediar(c) &""
end if
rs7.movenext
If rs7.EOF AND totrec < Ncampi Then
differenza=(Ncampi-c)
for i=1 to differenza
nrec=c+i
mat = mat & "" & vediar(nrec) &""
next
end if
elencomat = elencomat & mat
loop
ReDim Preserve arrayForm(1,intIndice - 1)
end if
end function

ok grazie....