if isArray(session("ArrScheda")) then
ArrScheda=Session("ArrScheda")
else
dim ArrScheda(40)
arrScheda(0)="voce1"
arrScheda(1)="voce2"
arrScheda(2)="voce3"
Session("ArrScheda")=ArrScheda
response.redirect("stessa pagina")
end if
if isArray(session("ArrScheda")) then
ArrScheda=Session("ArrScheda")
else
dim ArrScheda(40)
arrScheda(0)="voce1"
arrScheda(1)="voce2"
arrScheda(2)="voce3"
Session("ArrScheda")=ArrScheda
response.redirect("stessa pagina")
end if