[asp]variabele array

[Spooksel]

ik heb een script waar een variabel aantal checkboxen in staat, het aantal checkboxen na het submitten is nooit hetzelfde. ik wil nu in alle waardes van die checkboxen in een array gooien, maarrrrrrrr: die kan ik niet als volgt definieren:

code:

Dim recipients(count1)

Deze regel is te vinden in dit stukje code:

code:

if (submit = "go") then
    Dim strElement,count,count1
    count = 1
    count1 = 0
    For Each strElement in Request.Form
       if not strElement = "submit" then
        count1 = count1+1
       end if
    Next
    Dim recipients(count1)
    For Each strElement in Request.Form
       if not strElement = "submit" then
        recipients(count) = strElement
        count = count+1
       end if
    Next
   else
   [..] het else gedeelte is van toepassing

Het stukje code om de elementen uit te lezen heb ik hier vandaan:
[topic=465955/1/25]

en die if statement gebruik ik om de submit te onderscheppen (ik wil tenslotte alleen maar een aantal recipients in de array hebben)

welnu, ik weet met mijn asp noobility niet meer hoe ik verder moet... dus mijn vraag, kan dit eigenlijk wel (array met variabele grootte) en if so... how?

[Altaphista]

Met ReDim Preserve kom je een heel eind volgens mij

[Spooksel]

ik ga even naar google

[DukeMan]

wat je moet doen, is boven aan je pagina

Dim recipients()

en dan waar je weet hoeveel textboxen het zijn:

redim recipients(count)

Dit zou moeten werken

[Gert]

ReDim Preserve array(nieuwegrootte)

Met Preserve bewaart het de huidige data in de array.

[Spooksel]

wow, many tnx voor de snelle replies...

ik heb nu dit en het werkt perfecto:

code:

   if (submit = "go") then
    Dim strElement,count,count1,i
    Dim recipients()
    count = 1
    count1 = 0
    For Each strElement in Request.Form
       if not strElement = "submit" then
        count1 = count1+1
       end if
    Next
    Response.Write count1
    reDim preserve recipients(count1)
    For Each strElement in Request.Form
       if not strElement = "submit" then
        recipients(count) = strElement
        count = count+1
       end if
    Next
    for i = 1 to count1
       Response.Write recipients(i) & "<br>"
    next
   else