Menu vha dimensionelt array

Hej I gæve folk,

Se nu er jeg havnet i den situation at jeg ikke kan komme på flere idéer til hvordan jeg kan løse mit problem...

Jeg har en menu på www.farving.dk/carsten/ som fungerer, men den er blevet uoverskuelig og næsten umulig at bygge videre på, derfor er jeg ved at omkode den til en menu vha array... men jeg ved at den kode jeg har nu er forkert, og det har jeg også testet hvilket giver mig ret... så hvis nogen kan komme med en idé til hvordan det kan løses, funktionen skal være præcis som ses på menuen i ovenstående link, og håber resten kan læses lidt ud fra min kode...

======
Koden
======
<%
dim menuVar
menuVar = array(v,x,y,z)
' Hovedmenuen
dim menu(1,10,10,10)
dim menuRef(1,10,10,10)
menu    (0,0,0,0) = "Forside"
menuRef    (0,0,0,0) = "main.asp"
menu    (1,0,0,0) = "HTX"
menuRef    (1,0,0,0) = "htx/main.asp"
menu    (1,1,0,0) = "Biologi"
menuRef    (1,1,0,0) = "htx/biologi/main.asp"
menu    (1,2,0,0) = "Dansk"
menuRef    (1,2,0,0) = "htx/dansk/main.asp"
menu    (1,3,0,0) = "Engelsk"
menuRef    (1,3,0,0) = "htx/engelsk/main.asp"
menu    (1,4,0,0) = "Fysik"
menuRef    (1,4,0,0) = "htx/fysik/main.asp"
menu    (1,5,0,0) = "Kemi"
menuRef    (1,5,0,0) = "htx/kemi/main.asp"
menu    (1,6,0,0) = "Kommunikation/It"
menuRef    (1,6,0,0) = "htx/kom-it/main.asp"
menu    (1,6,1,0) = "Evaluering"
menuRef    (1,6,1,0) = "htx/kom-it/evaluering/main.asp"
menu    (1,6,1,1) = "Excel"
menuRef    (1,6,1,1) = "htx/kom-it/evaluering/excel.asp"
menu    (1,6,1,2) = "Word"
menuRef    (1,6,1,2) = "htx/kom-it/evaluering/word.asp"
menu    (1,6,1,3) = "PowerPoint"
menuRef    (1,6,1,3) = "htx/kom-it/evaluering/powerpoint.asp"
menu    (1,6,1,4) = "Konklusion"
menuRef    (1,6,1,4) = "htx/kom-it/evaluering/konklusion.asp"
menu    (1,7,0,0) = "Samfundsfag"
menuRef    (1,7,0,0) = "htx/samfundsfag/main.asp"
menu    (1,8,0,0) = "Teknologi"
menuRef    (1,8,0,0) = "htx/teknologi/main.asp"
menu    (1,8,1,0) = "Uge 1-3 2006"
menuRef    (1,8,1,0) = "htx/teknologi/ukendt/main.asp"
menu    (1,8,2,0) = "Uge 4-11 2006"
menuRef    (1,8,2,0) = "htx/teknologi/htx/teknologi/uge1-9/main.asp"
menu    (1,8,2,1) = "Produkt Beta"
menuRef    (1,8,2,1) = "htx/teknologi/htx/teknologi/uge1-9/Guess_Number_beta1.asp"
menu    (1,8,2,2) = "Hall of Fame"
menuRef    (1,8,2,2) = "htx/teknologi/htx/teknologi/uge1-9/statistik.asp"

for a = 0 to UBound(menuVar(v,0,0,0))
' Udskriver grundmenuen
response.write "<a href='?menu=" & a & "' Onclick=""reloader('main',menuRef(a,0,0,0),1);"">" & menu(a,0,0,0)& "</a><br>"
    if request.querystring("menu") <> "" then
    for b = 0 to UBound(menuVar(v,x,0,0))
    ' Udskriver undermenuer if requested
    response.write "<a href='?menu=" & a & "&submenu=" & b & "' Onclick=""reloader('main', menuRef(a,b,0,0),1);"">" & menu(a,b,0,0) & "</a><br>"
        if request.querystring("submenu") <> "" then
        for c = 0 to UBound(menuVar(v,x,y,0))
        ' Udskriver
        response.write "<a href='?menu=" & a & "&submenu=" & b & "&sub=" & c & "' Onclick=""reloader('main', menuRef(a,b,c,0),1);"">" & menu(a,b,c,0) & "</a><br>"
            if request.querystring("sub") <> "" then
            for d = 0 to UBound(menuVar(v,x,y,z))
            ' Udskriver
            response.write "<a href='?menu=" & a & "&submenu=" & b & "&sub=" & c & "undersub=" & d & "' Onclick=""reloader('main', menuRef(a,b,c,d),1);"">" & menu(a,b,c,d) & "</a><br>"
            next
            end if
        next
        end if
    next
    end if
next
%>