Løkker og arrays

Hej,

Jeg har et problem med at få mine "options" til at blive skrevet ud:

Det går galt når jeg vil kalde mit array med array_navn&i

Jeg kan ikke selv komme i tanke om hvordan det skal løses.
<%

    '  Step 1 : Byg min PC
    '  Array over hvilke emner vi skal have fat i mit eksempel: Processor, Operativsystem, Hukommelse, Harddisk, Optisk Drev
    Dim arrayStep1(4) ' Get Count of arrayItems IMPORTANT!
    arrayStep1(0) = "Processor"
    arrayStep1(1) = "Operativsystem"
    arrayStep1(2) = "Hukommelse"
    arrayStep1(3) = "Harddisk"
    arrayStep1(4) = "Optisk drev"
   
    Dim arrayOption1(1), arrayOption2(4), arrayOption3(2), arrayOption4(2), arrayOption5(2)
    ' Array over enheder i de enkelte kategorier, pris kommenteres med ;
    arrayOption1(0) = "Black Intel Core Duo SP9300;1200"
    arrayOption1(1) = "White Intel Core Single SP1111;-500"
   
    arrayOption2(0) = "Windows XP Home;400"
    arrayOption2(1) = "Windows XP Prof;700"
    arrayOption2(3) = "Vista Home;600"
    arrayOption2(4) = "Vista Business;800"
   
   
    arrayOption3(0) = "1024mb;399"
    arrayOption3(1) = "2048;599"
    arrayOption3(2) = "4096;1099"
   
    arrayOption4(0) = "80Gb Seagate;1000"
    arrayOption4(1) = "120GB seagate1300"
    arrayOption4(2) = "160Gb Seagate;1500"
   
    arrayOption5(0) = "DVD/Brænder;400"
    arrayOption5(1) = "DVD/Brænder m. lightscribe;500"
    arrayOption5(2) = "Ingen;-400"
       
    Response.write "Vælg komponenter"
    response.write "<br>"
   
    ' Udskriv en flot selectbox
    i = 0
    for each stepValue in arrayStep1
        response.write stepValue
        response.write "<select name=""" & trim(stepValue) & """>"
            ' Løber hele step1 igennem
           
            for each sOptionValue in arrayOption&i '<--- FEJLER HER!!!
           
                sOptionValue = split(sOptionValue,";")
                response.write "<option value=""" & sOptionValue(0) & """>" & sOptionValue(0) & sOptionValue(1) & "</option>"
            next
       
        response.write "</select><br />" & vbCrlf
        i = i + 1
    next