Problema recupero campi con for each

[fabiodj]

Ragazzi ho realizzato un form da cui recupero i dati con il classico ciclo for each in
request.form

Dim myArray()
ReDim MyArray(2,4)

strBody = ""
strBody1 = ""
conteggio = Request.Form.Count
For i = 1 To Request.Form.Count
  strBody =  Request.Form.Key(i)    
  strBody1=  Request.Form.Item(i)  
  Response.Write "Nome Campo: " &  strBody
  Response.Write " Valore: " & strBody1 &" 

"

  IF strBody  <> ""  then
  for j = 0 to Ubound(MyArray, 2)
  MyArray (Nometipo,J) = strBody
  MyArray (IDtipo,J) = strBody1
Next 
end if


next

ed a video vedo quello che segue.
Adesso io vorrei memorizzare in un array bidimensionale i valori relativi ai campi ST, nr, totale
dove il campo ST sia appunto diverso da "vuoto" e i campi "nr" e "totale" siano maggiori di 0
ma non riesco a capire come fare potresti aiutarmi?

Nome Campo: ST Valore: ST3MQ 
Nome Campo: nr Valore: 1 
Nome Campo: totale Valore: € 1.500 ,00 

Nome Campo: nr1 Valore: 0 
Nome Campo: totale1 Valore: € 0 ,00 

Nome Campo: nr2 Valore: 0
Nome Campo: totale2 Valore: € 0 ,00 

Nome Campo: nr3 Valore: 
Nome Campo: totale3 Valore: € 0 ,00 

Nome Campo: BM Valore: BM10 
Nome Campo: nr4 Valore: 1 
Nome Campo: totale4 Valore: € 1.500 ,00 

Nome Campo: nr5 Valore: 0 
Nome Campo: totale5 Valore: € 0 ,00 

Nome Campo: nr6 Valore: 0 
Nome Campo: totale6 Valore: € 0 ,00 

Nome Campo: nr7 Valore: 0 
Nome Campo: totale7 Valore: € 0 ,00 

Nome Campo: WK Valore: WK30 
Nome Campo: nr8 Valore: 1 
Nome Campo: totale8 Valore: € 1.000 ,00 

Nome Campo: nr9 Valore: 0 
Nome Campo: totale9 Valore: € 0 ,00 

Nome Campo: nr10 Valore: 0 
Nome Campo: totale10 Valore: € 0 ,00 

Nome Campo: Riscatto  Valore: RIS
Nome Campo: nr11 Valore: 1 
Nome Campo: totale11 Valore: € 100 ,00 

Nome Campo: scontistica Valore: € 0 ,00 

Nome Campo: sommatot Valore: € 0 ,00 

Nome Campo: B1 Valore: Invia

[fabiodj]

Ragazzi sono riuscito a creare la coppia nome/valore ma nell'arrey 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 6
'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




%>