Multi array - Type mismatch

Hov.. den første linie efter skildelinien - arrPlusprofier(i)(1) = rs("Trin") - skal du blot ignorer (det var en copy/past-fejl).

Du har kun angivet en dimention i definetionen af arrayet:

dim arrPlusprofier(99)

Prøv at give det to:

dim arrPlusprofier(3,99)

Tak for hjælpen - nu virker det :-D

    strQuery = "SELECT COUNT(*) AS COUNT_RECORDS FROM PLUSPROFIL_ANNONCE WHERE POINTS < MAXPOINTS AND TRIN <> 0"
    set rs = dataConn.execute(strQuery)
    if not (rs.eof or rs.bof) then
        strCountRecords = round(rs("COUNT_RECORDS"))

        'skal optimeres senere
        redim arrPlusprofil(strCountRecords, 2)
           
        i = 0
       
        strQuery = "SELECT ANNONCE_ID, TRIN FROM PLUSPROFIL_ANNONCE WHERE POINTS < MAXPOINTS AND TRIN <> 0 ORDER BY TRIN DESC"
        set rs = dataConn.execute(strQuery)
        while not (rs.eof or rs.bof)
            arrPlusprofil(i,0) = rs("Annonce_id")
            arrPlusprofil(i,1) = rs("Trin")
            strTrinAll = int(strTrinAll) + int(rs("Trin"))
            rs.movenext
            i = i + 1
        wend
   
        strTrinMiddel = int(strTrinAll / strCountRecords)
               
        strAnnonceIDs = ""   

        u = 0
        p = 0
   
        For i = LBound(arrPlusprofil) To UBound(arrPlusprofil)
       
            'find tilfældig record
            randomize
            ranValue = int(strCountRecords * rnd)
       
            'find tilfældig værdi som dens trin skal overstige
            randomize
            ranValue2 = int(strTrinMiddel * rnd)
       
            if int(arrPlusprofil(ranValue, 1)) > int(ranValue2) then
                if inStr(strAnnonceIDs, arrPlusprofil(ranValue, 0)) = 0 then
                    strAnnonceIDs = strAnnonceIDs & " OR ANNONCE_ID = " & arrPlusprofil(ranValue, 0)
                    u = u + 1
                end if
            end if
            p = p + 1
       
            if u > 6 or p > (strCountRecords / 2) then
                exit for
            end if
        next   
   
        if u > 3 then
            WriteTableStart "Plusprofiler", strHeadCellColor, "100%", "/grafik/layout/wavyb.gif"
            strSQL="SELECT * from PLUSPROFIL_ANNONCE WHERE " & right(strAnnonceIDs, len(strAnnonceIDs) - 4) & " ORDER BY TRIN DESC LIMIT 0,3"
            makePlusProfil strSQL, "true", "4", "true"
            WriteTableEnd
            makeSpace(5)
        end if
    end if