Dynamisk variabel

Dim kvalifikation, kval_startdato,kval_slutdato
kvalifikation = Array()
kval_startdato = Array()
kval_slutdato = Array()
a = 0

do while not recordSet24.eof

kvalifikation(a) = recordSet24("Kvalid")
kval_startdato(a) = recordSet24("Startdato")
kval_slutdato(a) = recordSet24("Slutdato")

recordSet24.movenext
a = a + 1
loop

=> mm12010

Får denne fejl:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '0'

/stamdata/medarbejder_redigering.asp, line 131

Hvor denne linje:

kvalifikation(a) = recordSet24("Kvalid")

er linie 131

Der mangler ordren:

redim preserve kvalifikation(n)

n skal så være den nye dimension.
Man kan udføre den løbende, men den er belastende og bør udføres i "klumper". F.eks. øg med 10 hver gang, eller hvad der nu er passende i din situation.

Her er et lille eksempel, hvor der redimensioneres i "klumper":
dim A(),n,p
redim A(10)
p=0
for n=0 to 100
  if p=10 then
    redim preserve A(Ubound(A)+10)
    p=0
  end if
  p=p+1
  A(n)=n
next

Jeg forstår ikke helt det der med redim.

I mit tilfælde kan der maks være 5 "kvalifikation" variabler da man maks kan vælge at have 5 kvalifikationer.

Redim:
Hvis du har et array, du vil have mulihed for løbende at ændre størrelse på, så skal du erklære det sådan:
dim A()
Men hvis du nu vil bruge det, så er du nødt til at fortælle, hvor stort, det faktisk skal være.
Det sker med ordren redim A(5) f.eks.
Hvis du senere vil have ændret størrelse, og du vil bevare det dser i forvejen er i arrayet sker det med ordren
redim preserve A(10) f.eks.

Hvis du på forhånd ved, du kun skal bruge et array af størrelsen 5, ja så skaffer du dig det med ordren
dim A(5)
Du kommer så i kontakt med de forskellige dele af A således:
A(0)=123
A(1)=456
x=A(0)
Og det er vist det du har glemt, da du skrev

kvalifikation & a = recordSet24("Kvalid")
Det burde have været
kvalifikation(a) = recordSet24("Kvalid")

Så erklær blot de arrays, du skal bruge således:
dim kvalifikation(5)
og nu kan du arbjede med
kvalifikation(0), kvalifikation(1),..., kvalifikation(5)
Så vi hart vist talt forbi hinanden.

Prøv at læse mere her:
http://www.html.dk/tutorials/asp/lektion8.asp

Ok... takker for hjælpen. Så må jeg lige se om jeg kan få det til at spille :)

selv tak, det var så lidt.

Nu har jeg gjort nedenstående men den fejler med denne besked:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '1'

/stamdata/medarbejder_redigering.asp, line 130

Når jeg laver en response.write(kvalifikation(0)) så udskrives den rigtige værdi, men det er måske som om at løkken ikke virker efter hensigten?

Dim kvalifikation, a
kvalifikation = Array(5)

a = 0

recordSet24.Open strSQLkval, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

do while not recordSet24.eof

kvalifikation(a) = recordSet24("Kvalid")
a = a + 1

recordSet24.movenext

loop

recordSet24.Close
Set recordSet24 = Nothing

Det er fordi, du ikke gør det, som jeg har foreslået.
Du skal erklære dine arrays således:

dim kvalifikation(5)

Sorry... Nu virker det som det skal :)

Jeg troede bare ikke at den kunne regne ud at det var et array når man bare skrev dim kvalifikation(5)... Man lærer hele tiden

=> nmh

Bare sig til hvis du vil have nogle flere point. Du har vist brugt en del tid på at banke det ind i hovedet på mig

Point: Jeg behøver ikke at få flere.
Det er fint, at det nu virker for dig. :o)