opbygning af array med SQL - do while

Jeg har en række produkter som har en, beskrivelse et id-nr og en databladstype, databladstypen er er heltal.

Jeg skal have opbygget et x antal array's alt efter hvormange databladstyper der forfindes.

Jeg har prøvet med følgende, men den laver bare formange array's

SQLr = "SELECT id, varebeskrivelse, databladstype FROM produkter WHERE varegruppe_id IN (SELECT id FROM varegrupper WHERE vis_user='yes') AND visuser='yes' AND databladstype <> NULL"
set rsg = myConn.execute(SQLr)
arrVareGr3 = rsg.GetRows()
rsg.Close
Set rsg = Nothing

SQL = "SELECT id, varebeskrivelse, databladstype FROM produkter WHERE varegruppe_id IN (SELECT id FROM varegrupper WHERE vis_user='yes') AND visuser='yes' AND frigivelsesdato <= Date() AND tilbudsdato <= Date() AND databladstype <> NULL"
set rs = myConn.execute(SQL)
arrUnderGr3 = rs.GetRows()
rs.Close
Set rs = Nothing


        For i = 0 to Ubound(arrVareGr3,2)
        print_VareGr3 = print_VareGr3 & "<option value=""" & arrVareGr3(0,i)  &""">" & arrVareGr3(1,i) & "</option>" & VbCrLf
        print_js3 = print_js3 & "VareGr3[" & arrVareGr3(2,i) & "] = new Array ("
        count = 0
        For j = 0 to Ubound(arrUnderGr3,2)
            If arrUnderGr3(2,j) = arrVareGr3(2,i) Then
                If count = 0 Then
                    print_js3 = print_js3 & "'0#Vælg undergruppe','" & arrUnderGr3(0,j) & "#" & arrUnderGr3(1,j) & "'"
                Else
                    print_js3 = print_js3 & ",'" & arrUnderGr3(0,j) & "#" & arrUnderGr3(1,j) & "'"
                End If
                count = count + 1
            End If
        Next
        print_js3 = print_js3 & ")" & VbCrLf
    Next

----------------------------------------------
array'et skulle gerne se sådan ud:(da jeg senere skal bruge det i et javascript)

VareGr3[databladstype] = new Array ('ID#VAREBESKRIVELSE')

eller med værdier

(databladstype = 1)

VareGr3[1] = new Array ('0#Vælg undergruppe','1#skruer','2#møtrikker')


(databladstype = 2)

VareGr3[2] = new Array ('0#Vælg undergruppe','23#Hammer','45#File')

Problemet er at der bliver lavet et array for hver produkt, men det er kun den længde som det skal være.

eks.
Her hvor vi har 2 produkter kommer det til at se sådan ud:
VareGr3[2] = new Array ('0#Vælg undergruppe','23#Hammer','45#File')VareGr3[2] = new Array ('0#Vælg undergruppe','23#Hammer','45#File')
--------------------------------------------
og det kan mit javascript ikke fatte.

Håber i måske kan hjælpe, skiv endelig hvis der skal mere forklaring til.