problema Array bidimensionale

[fabiodj]

Ragazzi sono riuscito a creare la coppia nome/valore ma nell'arrAy mi prende anche le coppie con valore 0 e questo a me non va bene come posso risolvere per fare in modo che nell'array vengano memorizzati solo i valori superiori a 0?

'creiamo un array bidimensionale, un po abbondante visto
' che non conosco il numero di controlli del form
ReDim arrayForm(2, 255)

intIndice = 0

conteggio = Request.Form.Count

For intLoop = 1 to conteggio
'Request.Form(varItem).count 

'se il numero di controlli del form e uguale a uno

If Request.Form(intloop).count <> 0 Then

'immagazzino nell'array le coppie nome-controllo/valore-controllo
arrayForm(0, intIndice) = Request.Form.Key(intLoop) 
arrayForm(1, intIndice) = Request.Form.Item(intLoop) 
intIndice = intIndice + 1
end if 


Next
'End If

'Next

'ridimensiono l'array alle giuste dimensioni, dato che ora
' conosco il numero di controlli del form
ReDim Preserve arrayForm(2, intIndice - 1)

'MOSTRO A VIDEO IL CONTENUTO DELL'ARRAY
For intIndice = 0 To UBound(arrayForm, 2)
  Response.Write arrayForm(0, intIndice) & " = " & arrayForm(1, intIndice) & "
"
  Next




%>