Problem med recset och arrayer

Hej har lite problem med att mata en array med ett recset.

Set RS3= Connect.Execute(RS3)
Do until RS3.EOF

For i = 0 To RS3.Recordcount
minArray(i,0)=RS3("personid")
minArray(i,1)=RS3("personnamn")
minArray(i,2)=RS3("personefternamn")
minArray(i,3)=RS3("occupation")
next

RS3.MoveNext
Loop

Här är koden som jag använder för att visa arrayen

<%For i = 0 To Ubound(minArray,1)
Response.write minArray(i,0) 
Response.write minArray(i,1)
Response.write minArray(i,2)
Response.write minArray(i,3)&"<br>"
Next%>

Någon som ser något fel i min kod, resultatet blir just nu ingenting av denna utskrivning.

Du kanske skulle använda GetRows istället? Eller finns det en anledning till att du lägger posterna i en array manuellt?

De ska sedan jämföras och bara skriva ut ett namn, men flera yrken. Alltså flera yrken på det namnet.

Precis, varför inte Getrows direkt?

Men hur som helst kan väl inte det där fungera, For-loopen snurrar ju till RS3.Recordcount för varje RS3.

Skall inte i bara vara en variabel som plussas för varje RS3.MoveNext?

Set RS3= Connect.Execute(RS3)

i = 0

Do until RS3.EOF

'For i = 0 To RS3.Recordcount
minArray(i,0)=RS3("personid")
minArray(i,1)=RS3("personnamn")
minArray(i,2)=RS3("personefternamn")
minArray(i,3)=RS3("occupation")
'next
i = i + 1
RS3.MoveNext
Loop

(Eller så snurrar jag till det... )