[asp] array doorgeven vanuit een functie

[coldasice]

code:

Public Function Afdeling()

    Set oSession = OpenSessieAnoniem
    If Not oSession Is Nothing Then
        Set oPublic = OpenPublicRoot(oSession)

            'On Error Resume Next
            Dim TijdelijkeAfdeling
            Set oRDBO = oPublic.Folders("Contactpersonen Medewerkers")
            Aantal =2
            rij =1

            'dim afdeling
            Set TijdelijkeAfdeling = Server.CreateObject("Scripting.Dictionary")
                
                ' SCHIJT MessageFilter werkt niet !! 
                Set oFilter = oRDBO.Messages.Filter
                oFilter.Fields.Add &H3001001E, "as"
                
                For Each oMessage In oRDBO.Messages
          if Veld(oMessage, conTelefoonNummer) = "" then
          else
               Gelijk=0                     
               For i = 0 To TijdelijkeAfdeling.Count -1
        'Controleer of de afdeling al is toegevoegd!
        if TijdelijkeAfdeling(i) = Veld(oMessage, conAfdeling) then                 Gelijk=1
        end if                      
               Next
             if Gelijk=0 then          
                               m=TijdelijkeAfdeling.Count
        TijdelijkeAfdeling(m)=Veld(oMessage, conAfdeling)
             end if                 
          end if
                Next              
        oSession.Logoff
        Set oSession = Nothing
    Else
        Uit "Openen sessie is mislukt"
    End If
    Afdeling=TijdelijkeAfdeling
End Function

ik heb geprobeerd de niet relevante stukken weg te halen...hierdoor kan het dan er ergens een if of else teveel staat...

mijn probleem is dat ik de volgende foutmelding krijg

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment

/asp_lib/telefoon.asp, line 55

Lijn 55 is waar ik de array tijdelijkeafdeling teruggeef aan het hoofdprogramma. dit volgende is het hoofdprogramma

code:

       Afdeling=Afdeling()
       Response.Write "<form><select multiple name=""Afdeling"">"
        For i = 0 to Afdeling.Count -1
             if Afdeling(i) <> "" then
    Response.Write "<option>" & Afdeling(i)
             end if
         Next
                
        Response.Write "</select></form> "

[ Voor 9% gewijzigd door coldasice op 22-12-2003 11:41 . Reden: wilde ff tabs zetten en dus ramde ik daarna op enter en verstuur ik hem voordat ik klaar was ]

[bigbeng]

Ik zou beginnen met mijn variabelen andere namen te geven dan mijn functies. Ik zou bijvoorbeeld de waarde die terugkomt uit Afdeling() toekennen aan een variabele arrAfdelingen, wat later ook iets meer informatie geeft aan anderen die mijn code moeten lezen.

Ik weet niet of dat het probleem is, de code ziet er verder namelijk correct uit.

[coldasice]

sorry mensen...ik heb het al gevonden...ik heb in het hoofdprogramma een array aangemaakt en byRef deze doorgegeven.....als iemand nog wil weten hoe ik dit precies heb gedaan moet hij maar ff reageren....

[Jaspertje]

Set TijdelijkeAfdeling = Server.CreateObject("Scripting.Dictionary")

En dan wil je dit uitlezen:
Afdeling=TijdelijkeAfdeling

Maar die moet iets hebben. dat is geen variable meer..
laat dan maar, dan klopt dit dus niet wat ik zei

[ Voor 16% gewijzigd door Jaspertje op 22-12-2003 11:49 ]

[gorgi_19]

.

[ Voor 100% gewijzigd door gorgi_19 op 22-12-2003 11:49 ]

[coldasice]

bigbeng schreef op 22 december 2003 @ 11:47:
Ik zou beginnen met mijn variabelen andere namen te geven dan mijn functies. Ik zou bijvoorbeeld de waarde die terugkomt uit Afdeling() toekennen aan een variabele arrAfdelingen, wat later ook iets meer informatie geeft aan anderen die mijn code moeten lezen.

ik heb je advies overgenomen....tnxs

[coldasice]

gorgi_19 schreef op 22 december 2003 @ 11:48:
.

werkt prima met count....