Loop???

Har kört fast med det här.
Problematik:
En var "varor" kan bestå av flera produkter, alltså den måste läsa in produkter flera gånger. Varje produkt i sin tur består av några uppgifter - de vill jag skilja från varandra. Jag försökte lösa det så här:

for i = 0 to i = 3 '(?hur gör man om man inte vet hur mycket det ska läsas?)'
varor = MinFil.ReadLine
myArray = Split(varor,",")
produkt = myArray(0)
antal = myArray(1)
levdatum = myArray(2)
next

För att infotmation ska visas på nätet skriver jag
<%Response.Write antal %><%Response.Write produkt %>

Som resultat får jag bara en produkt.
Alltså: loop är helt impotent.
Kan någon pigga upp den?

Katja

Vill du skriva ut ett bestämt antal gör du såhär:

for i = 0 to 3
next

Använder du ett recordset och vill skriva ut alla poster skriver du:

Do Until objRS.EOF
objRS.MoveNext
Loop

for i = 0 to i = 3 '(?hur gör man om man inte vet hur mycket det ska läsas?)'

Om det är en array du ska loopa ut till sista indexet kan du använda funktionen ubound() (obs, en array börjar på index 0)

for i = 0 to UBound(myArray,2) ' 2:an anger att det är en tvådimentionell array
'#-- datan som ska loopas --
Next